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1. ABSTRACT 


THIS program tests for proper operation or The hardware inoe^ 
REGISTER AND LIMIT REGISTER AND THEIR ASSOCIATED INSTRUCTIONS. 
THE TESTS start by VERIFYING THE SIMPLER OPERATIONS AND 
gradually BUILD IN COMPLEXITY TO TEST THE mqRE COMPLICATED 
operations of the registers. the first SECTION OF TESTS 
VERIFY operation OF INDEXING AND THE ASSOCIATED INSTRUCTIONS. 
THE SECOND SECTION TESTS FOR CORRECT OPERATION OF THE 
INDEXING feature IN RELATION TO EXTRA FIELDS OF MEMORY, IF 
available. INDEXED REFERENCES FROM FIELD 0 TO HIGHER FIELDS 
are first TESTED. THEN A TEST PROGRAM IS RELOCATED TO EACH 
MEMORY FIELD AND CONTROL IS TRANSFERRED TO THAT FIELD To 
TEST OPERATION OF INDEXED REFERENCES IN THAT FIELD AND IN 
THAT field and IN REFERENCE TO FIELD 0. 

2. REQUIREMENTS 


EQUIPMENT 


POP-15 EQUIPPED with FROM 4K TO 128k WORDS OF CORE. 

storage 


THIS program occupies CORE LOCATIONS 0-6000 OCTAL INCLUSIVE. 
5, loading procedure 


A. PLACE tape in READER 
8. SET BANK MODE TO A 1 
C, SET address switches TO 17700 
0. PRESS RESET, THEN REAO-IN 


0 
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4, starting procedure 


A. SELECI control SWITCH CONFIGURATION DESIRED FROM THE FOLLOW- 
ING TABLE, SWITCHES 1,2, 3, 4, 5 MUST BE SET TO INDICATE THE 
amount of cope AVAILABLE. NORMAL POSITION OF THE SWITCHES 
are AUl 2ER0S (DOWN) FOR A 4K MACHINE. 


data SWITCHES SET AS 


MODE OF operation 




0 

1 


SUPPRESS halts 

halt AT end of current TEST 


l»2,3,4,5 


8 


0 

1 


DENOTES absolute AMOUNT OF 

CORE IN system, refer to 
table in section 8. 

normal iterations 

QUICK VERIFY (00 EACH TEST ONCE) 


9 


0 print error message 

1 SUPPRESS error PRINTOUT 


10 


0 

1 


LOOP ON error 
PROCEED ON error 


11 0 

1 


TYPE ”ENO” ON PASS COMPLETION 
SUPPRESS "END" MESSAGE 


8. SET sank MODE TO A ”1” AND ADDRESS SWITCHES TO 200 


C. PRESS RESET, THEN PRESS START 


0, program will either type out message to PROCEED IF THE BANK 

MODE Switch is operational or an ERROR WILL BE typed out. 

E, IN either case in ORDER TO CONTINUE PUT BANK MODE SWITCH 
TO A ”0" AND PRESS RESET, THEN PRESS START. THE BANK MODE 
SWITCH WILL BE TESTED ONLY ONCE PER PROGRAM LOAD, 
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5, operating procedure 


PROGRAM and/or OPERATION ACTION 


THE CONTROL SWITCHES HAY BE CHANGED AT ANY TIME WHILE THE 
PROGRAM IS RUNNING, DATA SWITCHES 1,2,3,4»5 INDICATING THE 
amount or CORE AVAILABLE ARE ONLY SENSED AT THE BEGINNING OF 
THE program. if these SWITCHES ARE CHANGED WHILE THE PROGRAM 
IS RUNNING, THEY WILL BE IGNORED UNTIL THE START OF THE NEXT PASS, 

6, ERRORS 


ERROR halts and DESCRIPTION 


A, error TYPEOUT format FOR NORMAL ERRORS 

examples 

ER000100 PASS-000001 ACB777000 L=0 XRp700700 LR*000002 BLK=0 

THIS IS THE main ERROR TyPEOUT FORMAT, THE LEADING HEROES 
are NOT SUPPRESSED AND SHOULD BE IGNORED. THE MEANING OE 
EACH PART OF THIS MESSAGE IS AS FOLLOWS, 

ER000100 IS THE TAG IN THE PROGRAM OF THE TEST FAILURE (ER100). 

PASSf00000l IS THE NUMBER OF TIMES THROUGH THIS PARTICULAR 
TEST BEFORE FAILURE. 

ACS777000 IS the quantity IN THE ACCUMULATOR AT THE TIME 
OF FAILURE. 

L=0 IS THE STATE OF THE LINK AT THE TIME OF FAILURE. 

XR-700700 IS the quantity IN THE INDEX REGISTER AT THE 
TIME OF FAILURE. 

LR=000002 IS the QUANTITY IN THE LIMIT REGISTER AT THE 
TIME OF FAILURE. 

BLKa0 IS TWE 32 k block OF CORE CURRENTLY UNDER TEST 

THE ERROR TAG IS USED IN CONJUNCTION WITH THE PROGRa” 

LISTING TO DETER'^IVE WHICH TEST IS FAILING AND WMAT IS 
BEING TESTED. Tue PaSS NUMBER MAY BE HELPFUL IN 

determining the nature of the Failure, whether it is a 

HARO failure (WIPING ERROR OR OEAO CIRCUIT) OR A SOFT 
failure (WIRING FRROR OR DEAD CIRCUIT) OR A SOFT FAILURE 

(LOOSE WIRE nr intermittent CIRCUIT), each test is done 
4096 TIMES) IF TwE PASS NUMBER 15 GREATER THAN 1 IT 
INDICATES A PROBABLE SOFT FAILURE. 


Q 



PAGE 5 


(6 CONT'D) 


B, ERROR TYPEOUT TOR ABNORMAL ERRORS 
EXAMPLE! 

CAL 4ORS003750 TST AORa000323 AC=707707 XR=037000 BlK=0 

THIS ERROR FORMAT IS CAUSED 9Y EITHER PROGRAM SELF 
MODIFICATION OR WRONG ADDRESS CALCULATION AND TRANSFER OF 
CONTROL TO THIS WRONG ADDRESS, THE MEANING OF EACH PART 
IS AS FOLLOWS. 

CAL AORS003750 IS THE ADDRESS THAT WAS ERRONEOUSLY EXECUTED, 

TST ADRB000323 IS THE ADDRESS OF THE CURRENT TEST WHEN CAL 
OCCURRED. 

ACS707707 IS THE QUANTITY IN THE ACCUMULATOR AT THE TIME OF 

failure. 

XRS037000 IS THE QUANTITY IN THE INDEX REGISTER AT TIME OF CAL 
0LKS0 IS THE 32K BLOCK OF CORE CURRENTLY UNDER TEST. 

error recovery 


THERE ARE TWO TYPES OF ERRORS THAT NAVE SPECIAL RECOVERY 
PROCEDURES, THE FIRST TYPE OF ERROR IS THE CAL, A CAL 
OR JMS 20 will first TYPE OUT THE CAL ADDRESS# TEST 
address and THE CONTENTS OF THE AC AND THEN HALT, IF 
CONTINUE IS pressed THE PROGRAM WILL START THE FAILING 
TEST over again, ThE SECOND TYPE OF ERROR IS WHEN THE 

COMPUTER Hangs attempting to reference a location in 
NON existent memory, THIS can be verified by examining 

THE OA WHICH SHOULD NOT CONTAIN AN ADDRESS GREATER THAN 
THE CORE available. IN THIS CASE WRITE DOWN THE CONTENTS 
OF THE MAJOR registers AND RESTART IN LOCATION 21 WHICH 
WILL CAUSE THE TEST ADDRESS AND CONTENTS OF THE ACCUMU- 
LATOR TO type out as in cal. pressing continue now will 
restart the failing test, 


< 

3 
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7, PESTPICTIONS 


THE BASIC lNST(?UCTIOv TESTS AMD EXTENDED MEMORY TESTS 

MUST have run successeullm , 

8, miscellaneous 


EXECUTION time 


execution time is dependent on the amount or EXTRA MEMORY 
available. approximate run TIMES FOR ONE PASS IS AS FOLLOWS 
FOR A MEMORY cycle TIME OF BOONS. 

4K-26 SECONDS 
8K-29 SECONDS 
12K-33 SECONDS 
16K-S7 SECONDS 
20K-41 seconds 
24K-45 SECONDS 
28K"49 SECONDS 
32K-53 SECONDS 


/ 



PACE 7 


(8 CONT’O) 

data switcw positions to Indicate cope available 


data si-itches 

l»2i3»A|5 


SET AS 

total core present isi system 


4K 

00001 

8K 

00010 

12K 

00011 

16K 

00100 

20K 

00101 

24K 

00110 

28K 

00111 

32K 

01000 

36K 

01001 

40K 

01010 

44K 

01011 

48K 

01100 

52K 

01101 

56K 

01110 

60K 

01111 

64K 

10000 

68K 

10001 

72K 

10010 

76K 

10011 

60K 

10100 

64K 

10101 

SBK 

10110 

92K 

10111 

96K 

11000 

100K 

11001 

104k 

11010 

108k 

11011 

112k 

11100 

116t< 

11101 

120K 

11110 

124k 

11111 

128k 
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9, PROGRAM description 


rOLLOWiNO IS A verbal ELOW chart op the program plow. the 
A STEPS CONSTITUTE THE I N I T i aL I 2 AT I ON THAT OCCURS WHEN THE 
PROGRAM IS started, THE B STEPS ARE CONCERNED WITH THE RUNN- 
ING OF each separate TEST, THE C STEPS EXPLAIN THE CAL TYPE 
error handling PROCEDURES AMO THE D STEPS EXPLAIN THE NORMAL 

error handling procedures, 

IF nothing is listed in the decision box the next step hill 
be executed. if a decision POINT IS reached either the 
next step will be executed or control will be transferred 
depending on where the yes or no directs the program. 


step 

no. 

SUB 

name 

description of step 

YES 

NO 

A0B 

sens 

DETERMINE CORE AVAILABLE FROM AC 
SWITCHES 1-5 AND SET CORE INDICATORS 



A0t 

IERF0 

2ERO UNUSED CORE IN FIELD 0J 

INITIALI2C LOOP COUNTER 



A02 


transfer control to B00 



B00 


START OF TEST ROUTINE 



B01 

repeat 

INITIALI2E CAL HANDLER 



002 

repeat 

GET LOOP COUNTER AND TEST FOR 

CORRECT TEST ADDRESSING 



003 

repeat 

IS LOOP COUNTER 0-LEGAL ENTRY 


C00 

B04 

repeat 

GET and SAVE ADDRESS OF NEXT TEST 



005 

REPEAT 

IN1TIALI2C LOOP COUNTERi CLEAR ERROR 

flag for this test 



006 

repeat 

EXECUTE THIS TEST, OIS THIS TEST PASS? 


C00 

B0T 

DONE 

TRAP BAD addressing. IS THIS TEST 
ADDRESS BAD? IS IT GREATER THAN NEXT 
TEST ADDRESS? 

C00 


BBS 

DONE 

IS ERROR flag set? 

006 


909, 

DONE 

UPDATE LOOP counter. IS COUNTER 0? 


B06 
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(9 C0NT»0) 


STEP 

SUB 

description 

NO. 

name 


810 

DONE 

IS AC0 SET (WALT AT END OF 
current TEST)? 

Bll 

DONE 

WALT WITW test ADDRESS IN AC 

B12 

DONE 

UPDATE TEST ADDRESS AND TRANSFER 
CONTROL TO NEXT TEST STARTING 

AT B00, 

C00 

TYPCAL 

CAL WANOLERl SAVE AC 

C01 

typcau 

IS ACl (SUPPRESS error TYPEOUT) 

SET? 

C02 

TYPCAL 

HALT with law 777(76077) IN AC 

C0S 

TYPCAL 

PRINT CAL ADDRESS AND CONTENTS 

OF AC 

C04 

TYPCAL 

HALT HERE) GO TO C05 WHEN CONTINUE 
IS PRESSED 

C05 

TYPCAL 

TRANSFER CONTROL TO 006 TO TRY 
CURRENT TEST AGAIN 

000 

SETUP 

SAVE AC AND LINK, IS BIT 9 
(SUPPRESS ERROR TYPEOUT) SET? 

001 

SETUP 

PRINT THE Following on ttyi error 

NUMBER PASS NUMBER* CONTENTS OF 

AC. LINK, IR, LR 

002 

SETUP 

IS BIT 0 (Halt at end of test) set 

003 

SETUP 

HALT HERE! GO TO 004 WHEN 
continue is PRESSED 

004 

SETUP 

is BIT 10 (LOOP ON ERROR) SCT? 

005 

SETUP 

clear loop counter, transfer 

CONTROL TO NEXT TEST STARTING 

AT BP'0 

006 

SETUP 

set loop on error FLAG) LOOP IN 
CURRENT test be TRANSFERING CONTROL 


TO 8?6 

10, LISTING 


i 


YES NO 

B12 

C0S 

002 

004 



iNOxiS 


707762 

740040 

707741 

707761 

734000 

700406 

700401 

700402 


/ 

/P0Pmi3 WAROWARC INDEX REGISTER TEST 
/MA1^jOEC*15.O0AC 

/copyright 1969,1970, DIGITAL EQUIPMENT cORP.i MAYNARD# MASS. 
/ BY ROBERT A, HHITTON 

/ REV, OCT. l» 1970 

/ 

/AC SWITCH OPTIONS 

/AC0«1 halt AT END or CURRENT TEST OR HalT IN ERROR LOOP 
/AC1.2,3,4#5 number OF ADDITIONAL MEMORY FIELDS AVAILABLE 
/ACSul QUICK VERIFY (DO EACH TEST ONCE) 

/AC9«1 SUPPRESS error TYPEOUT 

/AC1011 PROCEED ON ERROR 

/ACllfl SUPPRESS END MESSAGE TYPEoUT 

/instruction equalities 


/ 

EPA»707762 

HALT«740040 

SKP154707741 

SBAP707761 

CLAC«734000 

TLS!700406 

TSr«700401 

TCrf700402 


/assert page node 
/halt 

/SKIP ir PROCESSOR IS A PDP»15 
/SKIP Ir IN bank mode 
/C i-EAR AC 

/LOAD teleprinter BurFER AND PRINT 

/SKIP On Teleprinter flag 
/clear teleprinter 
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IN0X15 


IN0X15 


.title IN0X15 
I ABS 

00200 ,LOC 200 

/ 

/TESTI-TEST PDP9/i5 MODE SWITCH 

/start program in pdp«i5 mode 


/ 


1 

00200 

204223 

T1,0 

LAC 

ftitle 


00201 

740200 


SZA 



00202 

600206 


JMR 

.•A 

1 

00203 

104224 


JMS 

type 


00204 

009966 


mtitle 



00209 

444223 


rS2 

ftitle 

) 

00206 

104403 


JMS 

TCORE 


00207 

104104 


JMS 

SENS 


00210 

104342 


JMS 

ZERF0 

) 

00211 

104000 


JMS 

repeat 


00212 

000290 


T2«0 



00213 

204219 


LAC 

BANKSW 

) 

00214 

740200 


SZA 



00215 

600224 


JMR 

CYCLE 


00216 

707761 


SIA 


) 

00217 

604734 

ERl 

JMR 

Ml 


00220 

444215 


IS! 

BANKSW 


00221 

104224 


JMS 

type 

) 

00222 

009603 


MCONT 



00223 

740040 


HALT 



00224 

707761 

CYCLE 

SBA 


) 

00229 

741000 


SKR 



00226 

604736 

ER2 

JHR 

H2 


00227 

707764 


EBA 


) 

00230 

707761 


SBA 



00231 

604740 

CR3 

JMR 

H3 


00232 

707764 


EBA 


) 

00233 

707761 


SBA 



00234 

604742 

ERA 

JMR 

HA 


00235 

707762 


EPA 


) 

00236 

Y07761 


SBA 



00237 

741000 


SKP 



00240 

604744 

ER5 

JMP 

H9 

) 

00241 

707762 


EPA 



00242 

707761 


SBA 



00243 

74100S 


SKP 


) 

00244 

604746 

ER6 

JMP 

H6 


00249 

707741 


SKP15 



00246 

604750 

ER7 

JMP 

h7 

) 

00247 

104023 


JMS 

DONE 





.EJECT 



) 


) 


) 


/HAS TITLC been PRINTEOT 
/yes. Skip it 
/ pPlNT title 


/determine how much extra memory available 


/has this test seem done? 

/y|Si Skip it 

/CPRORi MACHINE NOT IN BANK MODE 


/s^ip ir In bank mode 

/EPRORi machine is not in pace mode 

/SiT TO bank mode 

/S«IP IF In bank mode 

/EHRORi should be in bank mode 

/SiT TO bank mode 

/SHIP ir In bank mode 

/EPRORi ePA compliments mqDE FLOP 

/SET TO PACE mode 

/SHIP If In bank mode 

/EHROR) should be in bank mode 
/set to rAQE mode 
/SKIP If In bank mode 

/EPR0R» eBa compliments mode flop 
/SKIP IF PROCESSOR IS A POP-lS 
/EPR0R» PROCESSOR NOT A P0P»l5 


// 
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1N0X15 1N0X15 




/TEST 

j 

2 

«TEST AC 

,XRiLP data 

PATHS WITH Ones and zeroes 



/ 

/TEST 

2 

.^•^TEST 

aC»L« data 

PATH 

WITH transfer or ones 

00253 

104003 

T2,0 


JMS 

repeat 



00251 

000264 



T2,l 




00252 

750001 



CLC 



/ALL ones in AC 

00253 

722000 



PAL 



/PLACE AC IN LR 

00254 

750000 



CLA 




00255 

730000 



PLA 



/PLACE LR IN AC 

00256 

545630 



SAD 

(777777 


/SKIP Ir AC NOT all ones 

00257 

741000 



SKP 




00260 

604752 

ER13 


Jf4P 

H13 


/EPROR* 9A0 (1) data transfer 

00261 

750000 



CLA 



/reinitialize 

00262 

721000 



PAL 



/PLACE zeroes In LR 

00263 

104023 



JMS 

DONE 





/TEST 

j 

2 

,1*TEST 

ac«LR data 

PATH 

with transfer of zeroes 

00264 

104000 

/ 

T2,l 


JMS 

repeat 



00265 

000276 



T2i2 




00266 

750000 



CLA 




00267 

722000 



PAL 



/PLACE AC in LR 

00270 

730000 



PLA 



/PLACE LR IN AC 

00271 

740200 



S2A 




00272 

604754 

ER14 


JMP 

H14 


/ERRORi bad (0) data transfer 

00273 

750001 



CLC 




00274 

722000 



pal 



/reinitialize LR WITH ONES 

00275 

104023 



JMS 

DONE 





/TEST 

2 

,2* TEST 

ac»xr data 

PATH 

with transfer of ONES 

00276 

104000 

/ 

T2,2 


jMS 

repeat 



00277 

000312 



T2,3 




00300 

750001 



CLC 



/ALL ones in AC 

00301 

721000 



PAX 



/PLACE AC IN XR 

00302 

750000 



CLA 




00303 

724000 



PXA 



/PLACE AC IN XR 

00304 

545630 



SAD 

(777777 


/SKIP IF AC NOT all ones 

00305 

741000 



SKP 




00306 

604756 

ER15 


JMP 

H15 


/ERROR# BAD (1) OATa transfer 

00307 

750000 



CLA 




00310 

721000 



PAX 



/reinitialize XR WITH ZEROES 

00311 

104023 



JMS 

DONE 





/TEST 

2 

,3»TEST 

ac*xr data 

PATH 

WITH transfer of zeroes 

00312 

104000 

T2,3 


JMS 

repeat 



00313 

(^00324 



T2,4 




03314 

750000 



CLA 




00315 

721000 



PAX 



/PLACE AC IN XR 

00316 

724000 



PXA 



/PLACE XR IN AC 

00317 

740200 



S2A 




00320 

604760 

ER20 


JMP 

h20 


/error# pad (0) data transfer 

00321 

750001 



CLC 




00322 

721000 



PAX 



/reinitialize XR WITH ONES 

00323 

104023 



JMS 

.EJECT 

DONE 
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INOXiS 


INOX15 


/TEST 2,4-test LR TO XR DATA PATH WITH TRANSFER OF ONES 
^ / 



00324 

10400? 

T2,4 

JMS 

repeat 




00325 

000341 


T2,5 




i 

00326 

750001 


CLC 



/ALL ones in AC 


00327 

722000 


pal 



/PLACE AC IN LR 


00330 

731000 


PLX 



/PLACE LR IN XR 


00331 

750000 


CLA 





00332 

724000 


PXA 



/PLACE XR IN AC 


00333 

545630 


SAD 

(777777 


/SKIP IF AC NOT all ONES 

) 

00334 

741000 


SKP 





00335 

604762 

ER21 

JMP 

H21 


/CRRORi BAD (1) data TRANSFER 


00336 

750000 


CLA 



/REINIT1AL12E XR WITH ZEROES 

) 

00S37 

721000 


PAX 




00340 

104023 


JMS 

DONE 



) 



/TEST 

2,5«TEST 

LR TO XR 

DATA 

PATH WITH transfer OF ZEROES 

00341 

104000 

y 

T2.5 

JMS 

repeat 




00542 

000354 


T2i6 




) 

00343 

750000 


CLA 





00344 

722000 


PAL 



/PLACE AC IN LR 


00345 

731000 


PLX 



/PLACE LR tN XR 

) 

00346 

724000 


PXA 



/PLACE XR IN AG 


00347 

740200 


32A 





00350 

604764 

ER22 

JMP 

H22 


/cRRORi sad (0) data transfer 

) 

00351 

750001 


CLC 





00352 

721000 


PAX 



/REINITUL12E XR WITH iEROES 


00353 

104023 


JMS 

DONE 



) 



/TEST 

2,6-test 

XR TO LR 

DATA 

PATH WITH transfer OF ONES 


00354 

104000 

y 

T2,6 

JMS 

repeat 



) 

00355 

000371 


T2,7 





00356 

750001 


CLC 



/all ones in AC 


00357 

721000 


PAX 



/PLACE AC IN XR 

) 

00360 

726000 


PXL 



/PLACE XR IN LR 


00361 

750000 


CLA 





00362 

730000 


PLA 



/PLACE LR IN AC 

i 

00363 

545630 


SAD 

(777777 


/SKIP IF AC NOT all ones 


00364 

741000 


SKP 





00365 

604766 

ER23 

JMP 

M23 


/ERROR# BAD (1) data TRANSFER 

) 

00366 

750000 


CLA 





00567 

722000 


PAL 





00370 

104023 


JMS 

DONE 


/REINITUL12E LR WITH ZEROES 


.EJECT 



) 



5 

INDXiS 

INDX15 






/TEST 

2,7-TCST 

XR TO UP 

data path Wjth TPANfFER Of ICROES 

00371 

104000 

T2,7 

JHS 

repeat 


00372 

^00404 


T2,80 



^0373 

750003 


CLA 



30374 

721000 


PAX 


/PLACE AC IN XR 

00375 

726000 


PXL 


/PLACE XR IN LP 

00374 

730000 


PLA 


/PLACE LR IN AC 

00377 

740203 


SiA 



00400 

404773 

E ^2 4 

JMP 

H24 

/|PPOa» 0AO {01 oaTa transfer 

30401 

750001 


cic 


/RElNlTuLllE L^' ?^|TW ONES 

00402 

722000 


PAt 


00403 

104023 



DONE 




/TEST 

/ 

T2j 80 

2,8® « ? 

EST TH.4T k 

c TO LP 30NC NOT A.rrtCT AC 

00404 

104000 

JHS 

repeat 


00405 

000415 


rzai 



30404 

750001 


CLC 


/ALL QN£s |w AC 

00407 

722000 


PAL 


AC IN LR 

00410 

545630 


SAO 


/check if AC 0|P*rERCNT 

00411 

741000 


SKP 



00412 

604772 

ER25 

JMP 

h25 

/EaRORi aC fMOUuO contain 777777 

0041S 

734000 





00414 

104023 


JHS 

DOME 




/T2,81 

TEST 

TmAT AC TO 

XR DOES NOT AFFECT aC 

00415 

104000 

/ 

T2,81 

JMS 

repeat 


30416 

000426 


T2|a2 



0041? 

750001 


CLC 


/ALL ones in AC 

00420 

721000 


PAX 


/PLACE AC IN XR 

00421 

545630 


SAO 

(777777 

/CHCC^ IF AS DlFFE^Ekf 

00422 

741000 


SKP 



00423 

604774 

rR30 

JHP 

H30 

/ESRORi AC SNOUwO CONTAIN 777777 

00424 

735000 


CLX 



00425 

104023 


JHS 

DONE 




/T2,82 

TEST 

That xr to 

AC DOES NOT AFfeCT XR 

00424 

104000 

T2,82 

JMS 

repeat 


00427 

000442 


T2,63 



00430 

750001 


CLC 


/ALL ones in AC 

00431 

721000 


PAX 


/PLACE AC IN XR 

00432 

724000 


PXA 


/PLACE XR IN AC 

00433 

750000 


CLA 


/clear AC AND PLACE THE 

00434 

724000 


PXA 


/XP IN AC TO SEE IF AFFECTED 

00435 

545630 


SAO 

{777777 


00434 

741000 


SKP 



00437 

604776 

ER31 

JHP 

M31 

/ERRORi aC ♦ XR SHOULD CONTAIN 777777 

00440 

735000 


CLX 



00441 

104023 


JMS 

.EJECT 

DONiE 
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IK'OXIS 






/T2,83 

• TEST 

That LR to 

AC DOES NOT AFfeCT LR 

00442 

104000 

T2.83 

JMS 

repeat 


00443 

300456 


T2,84 



00444 

750001 


CLC 


/all ones in AC 

00445 

722000 


PAL 


/PLACE AC IN LR 

00446 

730000 


PLA 


/PLACE LR IN AC 

00447 

750000 


CLA 


/clear AC AND PLACE THE 

004S0 

730000 


PLA 


/LR in AC TO SEE IF AFFECTED 

00451 

545630 


SAD 

(777777 


00432 

741000 


SKP 



00453 

605000 

ER32 

JMR 

H32 

/ERRORi aC * LR SHOULD CONTAIN 777777 

00454 

736000 


CLLR 



00455 

104023 


JMS 

done 



/T2.84 • TEST THAT XR TO LR DOES NOT AfFECT THE XR 
/ 


' 00456 

104000 

72i84 

JHS 

repeat 


00457 

000473 


T2,85 



00460 

750001 


CLC 


/ALL ones IN AC 

00461 

721000 


PAX 


/PLACE AC IN XR 

00462 

726000 


PXL 


/PLACE XR IN LR 

00463 

750000 


CLA 



) 00464 

724000 


PXA 


/CET contents of XR IN AC 

00465 

545630 


SAD 

(777777 


00466 

741000 


SKP 


/error# aC * XR SHOULD CONTAIN 777777 

) 00467 

605002 

ER33 

JMP 

H33 

00470 

736000 


CLLR 



00471 

735000 


CLX 



' 00472 

104023 


JMS 

DONE 

XR DOES NOT AFFCCT THE LR 



/T2.85 

■ TEST 

THAT LR TO 

' 00473 

104000 

T2i85 

JMS 

repeat 


00474 

000510 


TS,0 



00475 

750001 


CLC 


/all ones in AC 

) 00476 

722000 


PAL 


/PLACE AC IN LR 

00477 

731000 


PLX 


/PLACE LR IN XR 

00500 

750000 


CLA 



00501 

730000 


PLA 


/get contents OF LR in AC 

00502 

545630 


SAD 

(777777 


00503 

741000 


SKP 



i 00504 

605004 

ER34 

JMP 

H34 

/IRRORiAC * LR should CONTAIN 777777 

00505 

736000 


CLLR 



00506 

735000 


CLX 



00507 

104023 


JMS 

r ir »» T 

DONE 



.eject 



) 



I»ACE 


7 

INDX15 

IN0X15 






/ 

/TEST 

3- TEST 

Clear xRiLR»ac 




/TEST 

3,0^TEST 

clear AC witm 

CLAC But not the link 

0051? 

104000 

t3,0 

JMS 

repeat 


00511 

300521 


T3,l 



00512 

754003 


CLA.'CLLtCMAlCHi, 

/set AC ♦ link to ones 

00513 

734000 


CLAC 


/CUAR AC 

00514 

740200 


S2A 



00515 

605006 

ER39 


m35 

/ERROR? aC DtO NOT ClCaR 

00516 

740400 


S^J1. 



00917 

605010 

£F}4a 

JMP 

h40 

/rRROSj OLaC THE 

0052? 

104023 



DONE 




/TEST 

t 

* s» f" & 

^ i%b > 

Clear / s 


00921 

104000 

/ 

t3, 1 

JMS 

RgPL A f 


00S22 

000552 


r; 

5 V 4 4i 



00523 

750001 


4% f ^ 

b W 


/ E T ■ ''■ f 0 4 1 L :i v i S 

00924 

721000 


M A 


/ P w ^ r C 4 fT I N / w 

00925 

739000 


w y ^ 


T C » H ,s. P 

00526 

724000 


0 V a 


/»kACT IN AC 

03527 

740200 


SiA 



00530 

609011 

i’ R7 i 

-;r', 

h41 

/iSRwRs kR 3iD .07 

00531 

I04i23 


!. M ^ 

DONE 




/ ^ t ^ T 

3 ^ 2^ 8? T ^ s T 

CLEAR LW 


08532 

104000 

/ 

f 3 g 2 

jMg 

.0 E P E A T 


00533 

000543 


T4 » 0 


/$ir AC fO itL G"‘ES 

08534 

730001 


CwC 


00535 

722000 


P 


/?LAeC AC IN WR 

00S36 

736000 




/QLiMn iH 

00537 

730000 




/PbACE lR in AC 

00540 

740200 


32 4 



00541 

605014 

E R 4 2 


4 € 

/£^RQ®3 uR OiP NOT CuCAS 

00542 

104023 


JMS 

DONE 






) 

pace: 8 

INDX15 

IN0X15 






) 



/ 

/TE:ST4e 

TEST jr 

AC,XR,LR data paths AffECT CaCW OTHER 



\ 



/ 

/TEST 4 

,0»TEST 

IP ac.lR 

DATA PATH APPeCtS ZEROES IN XR 




00843 

104030 

T4,0 

JHS 

repeat 





00544 

000560 


T4,l 





') 

00545 

735000 


CLX 


/CUEAR XR 




00546 

750000 


CLA 


/TPANSPCR ONES ♦ ZEROES BEtwEEN 

AC 

AND LR 


00547 

722000 


PAL 





> 

00580 

730000 


PLA 






00551 

750001 


CLC 






00552 

722000 


PAL 





) 

00553 

730000 


PLA 






00554 

724000 


PXA 






00555 

740200 


SIA 


/SKIP If XR still 15P0 



) 

00556 

605016 

ER43 

JMP 

H43 

/iRRORf aC^LR transfer affected 

xfl 



00557 

104023 


JMS 

DONE 




) 



/TEST4,l«TeST \f AC-tR 

DATA path aPFECTs ONES IN XR 



00560 

104000 

T4,l 

JMS 

repeat 





00561 

000576 


T4,2 





) 

00562 

750001 


CLC 


/PLACE ONES IN XR 




00563 

721000 


PAX 


/TPANSPCR ONES 4 ZEROES BCtwEEN 




00564 

722000 


pal 


AO 

♦ LR 

) 

00565 

730000 


PLA 






00566 

750000 


CLA 






00567 

722000 


PAL 





) 

00570 

730000 


PLA 






00571 

724000 


PXA 






00572 

545630 


SAD 

Kilim 

/$KIP If XR HAS chanced 



) 

00573 

741000 


SKP 


/from All ones condition 




00574 

605020 

|R44 

JMP 

H44 

/error# aC.LR transfer affected 

LR 



00575 

104023 


JMS 

DONE 

data path affects zeroes in lr 



) 



/TEST 4 

M 

,2-test 

IP AC«^XR 




00576 

104000 

T4,2 

JMS 

repeat 




) 

00577 

000613 


T4,3 






00600 

736000 


CLLR 


/CUEAR lr 




00601 

750000 


CLA 


/transfer ones 4 zeroes between 

AC 

♦ XR 

) 

00602 

721000 


PAX 






00603 

724000 


PXA 






00604 

750001 


CLC 





) 

00605 

721000 


PAX 






00606 

724000 


PXA 






00607 

730000 


PLA 


/PLACE lr In AC 



} 

00610 

740200 


S2A 


/skip If lr still hero 




00611 

605022 

ER45 

JMP 

H45 

/error# iCixR transfer affected 

LR 



00612 

104023 


JMS 

IP mm 

DONE 





.EJECT 


n 


) 



PAGI 9 


IN0X19 


IN0X19 


/tEST 4,3»TtST If AC.XP 


/ 


?0613 

104000 

T4,3 

JMS 

repeat 

00614 

000631 


T4,4 


00615 

750001 


CLC 


00616 

722000 


PAL 


0061? 

721000 


PAX 


00620 

724000 


PXA 


00621 

750000 


CLA 


00622 

721000 


PAX 


00623 

724000 


PXA 


00624 

730000 


PLA 


00625 

549630 


SAD 

(777777 

00626 

741000 


SKP 


00627 

609024 

ER50 

JMP 

H50 

00630 

104023 


JMS 

DONE 



/TEST 

4,4»TEST 

IF LR«XR 

00631 

104000 

T4,4 

JMS 

repeat 

00632 

000646 


T4,5 


00633 

736000 


CLLR 


00634 

739000 


CLX 


00635 

790001 


CLC 


00636 

722000 


PAL 


00637 

750000 


CLA 


00640 

731000 


PLX 


00641 

736000 


CLLR 


00642 

726000 


PXL 


00643 

740200 


SBA 


00644 

609026 

CR51 

JMP 

H91 

00645 

104023 


JMS 

DONE 



/TEST 

4.5-TEST 

IF lR»XR 

00646 

104000 

T4,5 

JMS 

repeat 

00647 

000663 


T5,0 


00650 

736000 


CLLR 


00691 

735000 


CLX 


00652 

750001 


CLC 


00653 

721000 


PAX 


00654 

726000 


PXL 


00659 

739000 


CLX 


00656 

731000 


PLX 


00657 

549630 


SAD 

(777777 

00660 

741000 


SKP 


00661 

605030 

ER52 

JMP 

H52 

00662 

104023 


JMS 

.EJECT 

DONE 


data path ArnCTS ONES LP 

/PLACE OMCP up 

/TPANSPep ones « ZEROES eCTWCEN AC ♦ XR 


/SHIP ir XR mas changed 

/pROH All ones condition 

/fPROPi ACiXR TRANSPBR AFFECTED lP 

data path affects SEPOES in AC 

/CLEAR lR 
/CLEAR XR 

/PLACE ONE! IN LR 

/transfer ones ietwicn lr»xr 
/SKIP If AC still zero 

DATA PATH AFFECTS ONES IN AC 

/CLEAR lR 
/clear XR 

/place ones in XR 
/transfer ones between XR»Lfi 

/SKIP Is AC still all ones 
/error# lR-XR data path affects AC 



PACE 10 


1N0X15 


IN0X15 




f»A8C 11 IND)(15 INOXIS 

/TCST 5, 3-TEST THAT iR IS NQT PICKING UP SitS 


/ 


30736 

104000 

T5,3 

JMS 

repeat 



30737 

000799 


T9, 4 




00740 

209632 


lac 

(292929 

/PICK UP Pattern 


00741 

722000 


PAL 


/PLACE IK LR 


00742 

730000 


PUA 


/get it back 


00743 

949632 


5A0 

(292929 

/olo it change? 


00744 

741000 


SKP 


/NOi continue 


00749 

609046 

CR62 

JMP 

H62 

/YE$, ERRORi picked 

UP BIT 

00746 

209631 


LAC 

(929292 

/gCt ncn Pattern 


00747 

722000 


PAL 


/PLACE IN LR 


00790 

730000 


PLA 


/CEt it back 


00791 

949631 


SAD 

(529292 

/olo IT change? 


00792 

741000 


SKP 




00793 

600749 


JMP 

CR62 

/YES, Picked up sits 

00794 

104023 


JMS 

DONE 





/TEST 

j 

9,4»TES7 

THAT XR IS 

NOT picking up B.|T8 


00799 

104000 

T9, 4 

JMS 

repeat 



00796 

300774 


T6,0 




00797 

209632 


LAC 

(292929 

/OlT pattern 


00760 

721000 


PAX 


/PLACE IN XR 


00761 

724000 


PXA 


/GET IT back 


00762 

549632 


SAD 

(292929 

/olo IT chance? 


00763 

741000 


SKP 


/NO, continue 


00764 

609090 

ER63 

JMP 

H63 

/YtS, ERROR, PICKED 

UP BIT 

00769 

209631 


lac 

(529252 

/get next pattern 


00766 

721000 


PAX 


/PLACE IN XR 


00767 

724000 


PXA 


/GlT IT SACK 


00770 

949631 


SAD 

(529252 

/DID IT change? 


00771 

741000 


SKP 


/no, continue 


00772 

600764 


JMP 

CR63 

/yes. Error, picked 

UP BIT 

00773 

104023 


JMS 

DON? 




.EJECT 




12 

1^0X15 

IN0X15 







/TEST6 

liTCST ADO 

TO AC * XR 





/TEST 

6,0«TEST 

add Maximum 

AND 

MINIMUM POSITIVE QUANTITY TO AC WITH aAC 



/TEST 

THAT ADO 

TO AC WITH 

AAC 

DOES NOT AffrCT LR OR XR 

00774 

104000 

T6,0 

JH8 

repeat 



00775 

301020 


T6.1 




00776 

735000 


CL.X 



/C^CAR XPf LRi AC 

00777 

736000 


CUR 




01000 

750000 


CUA 




01001 

723377 


AA0«377 



/APO 377 To AC 

01002 

545633 


SAD 

(377 


/SKIP ir AC IS NOT 377 

01003 

741000 


SKP 



/iRROPi aOO 377 TO AC PAUCD 

01004 

605052 

ER64 

JMP 

H64 


01005 

723000 


AAC«0 




01006 

545633 


SAD 

(377 


/SKIP If AC is NOT 377 

01007 

741000 


SK5 




01010 

605054 

ER65 

JMP 

H65 


/CRRORi aOO 0 TO AC PAlLCO 

01011 

724000 


RXA 



/PLACE XR iN AC 

01012 

740200 


SiA 



/SKIP If XR STILU ZERO 

01013 

605056 

ER66 

JMP 

H66 


/CRRORi xR PICKED UP BITS 

01014 

730000 


PI.A 



/PLACE LR IN AC 

01015 

740200 


SIA 



/SKIP If LR still IERO 

01016 

605060 

ER67 

JMP 

N67 


/error# lR picked up bit during AAC 

01017 

104023 


JMI 

DONE 





/TEST 

6.1-TCST 

ADO maximum 

AND 

MINIMUM POSITIVE quantity TO XR WITH aXR 



/TESt 

THAT ADO 

TO XR with 

AXR 

DOES NOT APPlCT AC OR LR 

01020 

104000 

y 

T6il 

JMS 

repeat 



01021 

001045 


T6,2 



/clear LRi XR# AC 

01022 

735000 


CLX 



01023 

736000 


CUR 




01024 

750000 


CLA 




01025 

737377 


AXR*S77 



/AOO 377 TO xR 

01026 

740200 


SiA 



/SKIP ir Ac still zero 

01027 

605062 

ER70 

JHP 

H70 


/ERROR# AC PICKED UP BITS DURING AXR 

01030 

724000 


PXA 



/PLACE XR IN AC 

01031 

545633 


SAD 

(377 



01032 

741000 


SKP 




01033 

605064 

ER71 

JHP 

H71 



01034 

737000 


AXR«0 



/PLACE XR IN AC 

01035 

724000 


PXA 



01036 

545633 


SAD 

(377 



01037 

741000 


SKP 




01040 

605066 

ER72 

JMP 

W72 


/ERROR# aOO 0 TO AC tailed 

01041 

730000 


PLA 



/PLACE LR IN AC 

01042 

740200 


SiA 



/SKIP IF LR still ZERO 

01043 

605073 

ER73 

JHP 

H73 


/error# lR picked up BITS DURING AXR 

01044 

104023 


JHS 

.EJECT 

DONE 







PA6f 13 


IN0X15 


IN0X15 




/test 

6,2 • TEST 

’ AOO MAXIMUM 

AND MINIMUM NCOaTIVE QUANTITY TO AC WITH AAC 

01045 

104000 

y 

T6,2 

JMS 

repeat 


01046 

001061 


T6.3 



01047 

754000 


CLAICUL 



01050 

723777 


AAC*777 


/AOO 777777 TO AC I-l) 

01051 

545630 


SAD 

(77/777 

/S»<IP IP AC IS NOT 777777 

01052 

741000 


SKP 



01053 

605072 

ER74 

JMP 

H74 

/C^RORi aOO»1 to AC PAILEO 

01054 

723400 


AAC«400 


/AOO 777400 TO AC (*256 DECIMAL) 

01055 

545634 


SAD 

(777377 


01056 

741000 


SKP 



01057 

605074 

ER75 

JMP 

H75 

/E«RORi aOO -256 TO AC FAILED 

01060 

104023 


JMS 

DONE 



/TEST 6,3 • TEST ADD MAXIMUM AND MINIMUM NC8AT1VE QUANTITY TO XR WITH AXR 


/ 


01061 

104000 

T6,3 

JMS 

repeat 


01062 

001077 


T6,4 



01063 

735000 


CLX 



01064 

737777 


AXR*777 



01065 

724000 


PXA 


/PLACE XR IN AC 

01066 

545630 


SAO 

(777777 

/S^IP IF AC IS NOT 777777 

01067 

741000 


SKP 



01070 

605076 

ER76 

JMP 

H76 

/ERRORi aOO •! TO XR failed 

01071 

737400 


AXR*400 



01072 

724000 


PXA 



01073 

545634 


SAO 

(777377 


01074 

741000 


SKP 



01075 

605100 

ER77 

JMP 

H77 

/CRRORi aOO >256 TO XR FaILI 

01076 

104023 


JMS 

DONE 



/TEST 6.4 • test UP COUNT POP INOC* RCClSTfP WITH AXP^l 


/ 


01077 

104320 

T6,4 

JMS 

INIT10 

/IRITIALI2E LOOP COUNTER FOR 1 LOOPS 

01100 

104000 


JMS 

REPEAT 


01101 

001122 


T6,5 



01102 

735000 


CLX 


/CLEAR index REGISTER 

01103 

141120 


02H 

K6,4 

/clear memory CELL UPCOUNT 

01104 

737001 

L6,4 

AXR + l 


/AOD 1 TO XR 

01105 

441120 


iSi 

K6,4 

/ADO 1 TO MEMORY CELL UPCOUNT 

01106 

741000 


SKP 



01107 

601114 


JMP 

ER100*1 

/memory cell UPCOUNT OVERFLOWED 

01110 

724000 


PXA 


/get contents of XR 

01111 

541120 


SAO 

K6,4 

/IS The same as memory cell? 

01112 

601104 


JMP 

L6,4 

/yEs, Continue to loop 

01113 

605102 

ER100 

JMP 

H100 

/ERRORi xR failed To INCREMENT 

01114 

724000 


PXA 


/GET contents of XR 

01115 

740200 


SZA 


/OlO IT OVERFLOW? 

01116 

601113 


JMP 

t (i3 

/NO, error 

01117 

741000 


SKP 


/ycs. Exit 

01120 

000000 

K6,4 

0 


/memory uPCOUNT CELL 

01121 

104023 


JMS 

DONE 



.EJECT 


/ 




PACE 14 


1M0X15 


1N0X15 




/TEST 

6,5 « TEST UPCOUNT FOR 

01122 

104000 

T6,5 

jMS repeat 

01123 

001142 


T6,6 

claicll 

01124 

754000 


01125 

141140 


02M K6,t> 

01126 

723001 

L6,9 

AAC^l 

01127 

441140 


ISZ K6,P 

01130 

741000 


SKP 

01131 

601135 


JMP ERin^l 

01132 

541140 


SAO K6,9 

01133 

601126 


JMP l6,5 

01134 

605104 

ER101 

JMP H101 

01135 

740200 


SSA 

01136 

601134 


JMP ,-2 

01137 

741000 


SKP 

01140 

000000 

K6i5 

0 

01141 

104023 

/TEST 

JMS done 

6,6 • test down count 

01142 

104000 

T6,6 

JMS repeat 

01143 

001167 


T6,7 

01144 

750001 


CLllCMA 

01145 

721000 


PAX 

01146 

041165 


OAC k6,6 

01147 

737777 

L6,6 

AXR*777 

01150 

201165 


LAC k6,$ 

01151 

345630 


tad (•! 

01192 

041165 


OAC K6i4 

01153 

741200 


SNA 

01154 

601161 


JMP ER102*1 

01155 

724000 


PXA 

01156 

541169 


SAD K6,6 

01157 

601147 


JMP l6,P 

01160 

605106 

ER102 

JMP H102 

01161 

724000 


PXA 

01162 

740200 


S2A 

01163 

601160 


JMP ,*3 

01164 

741000 


SKP 

01165 

000000 

K6,6 

0 

01166 

104023 


JMS DONE 

.EJECT 


) 


AC WJTh AAc*1 


/clear AC a^40 link 
/clear MCMeRY CELL UPCOUnT 
/ADO 1 TO AC 

/ADO 1 TO MEMORY CELL UPCOUNT 

/memory cell UPCOUNT OVERfLOHBO 

/|f AC same A9 memory CELL UPCOUNTf 

/YESi continue TO LOOP 

/EPRORi aC PaILEO to increment 

/DID AC oVERPLOWf 

/n0| EPROP 

/YESi Exit 

/memory cElL UPCOUNT 
rOR index register with AXR*777 


/PUT 7777TT INTO XR ANO 

/memory oown count cell 

/ADO •& TO XR 

/ADO •! TO MEMORY CELL DOWN COUNT 

/DiO cell peach 01 
/YfSi TffT 0 AND EXIT 

/get contents or index register 

/IS IT 8AH| as MEMORY CELL COUNT? 

/yIs# Continue to loop 
/eprori xR failed To decrement 
/get contents or xr 

/|S IT 0? 

/NO, EXIT# DIO NOT DECREMENT TO 0 

/memory down count cell 





PACC 15 


!^jOX15 


IN0X15 


/TEST 6,7 « TEST DOWN COUNT TOR AC WITH aAC*777 
/ 


eil67 104000 T6,7 jms repeat 

01170 001215 T6,8 

01171 750001 CLAICMA 

01172 041212 OAC K6,7 /pUT 777777 IN AC AND DOWN COUNT CELL 

01173 723777 L6,7 AAC*777 /AOO •! TO AC 

01174 041213 DAC C6,7 /TChPORaRLY SAVE AC 

01175 201212 LAC K6,7 /GET OOwnCOUNT MEMORY CELL 

01176 345630 TAO (•! /aOO *1 

01177 041212 OAC <6,7 /PUT BACK INTO MEMORY CELL 

01200 201213 lac C6,7 /OfT SAveO AC 


01201 

741200 


SNA 


01202 

601206 


JMP 

ER1P3*1 

01203 

541212 


SAD 

<6.7 

01204 

601173 


JMP 

L6.7 

01205 

605110 

CR103 

JMP 

H103 

01206 

201212 


lac 

<6,7 

01207 

740200 


SZA 


01210 

601205 


JMP 

.■3 

01211 

601214 


JMP 

.♦3 

01212 

000000 

<6,7 

0 


01213 

000000 

C6,7 

0 


01214 

104023 


JMS 

DONE 



/TEST 

6.S • TESI 

' or INDEX 



/WITH 

THE RANDOf- 

1 number be 

01215 

104313 

y 

T6,8 

JMS 

INITn 

01216 

104000 


JMS 

REPEAT 

01217 

001247 


T7,0 


01220 

724000 


PXA 


01221 

041244 


OAC 

<6,6 

01222 

104325 


JH8 

RANDOM 

01223 

505635 


AND 

(777 

01224 

041245 


OAC 

V6,§ 

01225 

345636 


TAO 

(AXR 

01226 

041237 


OAC 

X6,6 

01227 

201245 


LAC 

V6,8 

01230 

505637 


AND 

(400 

01231 

741200 


SNA 


01232 

601234 


JMP 

.*2 

01233 

205640 


lac 

(777000 

01234 

341245 


TAO 

V6,0 

01235 

341244 


TAO 

<6.6 

01236 

041244 


DAC 

<6,8 

01237 

740040 

X6,8 

XX 


01240 

724000 


PXA 


01241 

541244 


SAD 

<6,8 

01242 

601246 


JMP 

.*A 

01243 

605112 

ER104 

JMP 

H104 

01244 

000000 

k6,8 

0 


01245 

00000Z 

V616 

0 


01246 

104023 


JM8 

done 




, EJECT 



/|§ IT 0 YET7 

/Yfs, Test downcount cell 

/NO, is iT the same as OOWNCOUNT CELL 

/yes, Continue to loop 

/ac tailed to decrement 

/is TEST Cell 0 

/no, ERROR 

/YCS Exit 

/memory OOWNCOUNT CELL 
/temporary storaoe rOR ac 

register instruction AXR4RANDOM NUMBER 
INC IN the range or 0-777 

/restore loop counter to normal 


/SAVE XR IN SUM memory CELL 

/restrict size or random number 
/save In temporary area 

/FORM AXR4RANOQM NUMBER 
/PLACE IN EXECUTABLE LOCATION 

/test If random number negative 
/IT IS negative, rORM is bit word 
/NOT negative continue 


/UPDATE SUM memory CELL 

/MOOiriCO TO axr*ranoom number 
/get XR 

/IS IT the same as sum memory cell 
/yEs, Continue 

/SUM memory cell 
/temporary storage area 
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/TEST 7 

test 

AXS 




/TEST 7 

,0 • TEST AXS MITM EQUAL XR ANQ LR 

31247 

104000 

T7 ,0 

JHS 

repeat 


01250 

001265 


T7»l 



01251 

73600? 


CUR 


/clear limit REGISTER 

01252 

754001 


CIA'CLIICMA 


01253 

721000 


RAX 


/PLACE all ones in index RCGISTCR 

01254 

750000 


CL.A 



01255 

725001 


AXS41 



01254 

605114 

ER110 

JMR 

Mil? 

/ERROR# OlO NOT SKIP WHEN LR*XR»0 

01257 

750001 


cue 


/PLACE all ones in LR and XR 

01260 

722000 


ral 



01261 

721000 


RAX 



01262 

725000 


AXS^0 


/APD 0 TO XR AND SKIP IF >fLR 

01263 

605116 

ERill 

JMP 

WUI 

/ERROR# OlO NOT SKIP WHEN LR*XRi777777 

01264 

104023 


JM8 

DONE 




/TEST 7 

,1 • TEST AXS fpR SKIP 

CONDITION WITH LRi0 AND XR 



/MAS A 

i 

ONE fLOATlO THR0U8H |T 


01265 

104000 

T7,1 

JM8 

repeat 


01266 

001304 


TT,2 



01267 

736000 


CI.I.R 


/CLEAR LR 

01270 

754030 


CLAlCLUi lAC 

/PUT A OnE in AC 

01271 

721000 


PAX 


/PLACE IT IN XR 

01272 

725000 


AX$«0 


/AOO 0 TO XR, SKIP IF IT IS i > lR 

01273 

605120 

ERH2 

JMP 

Mil? 


01274 

740010 


RAU 



01275 

740100 


SMA 


/SKIP ON AC0tli TEST NOT COMPLETE 

01276 

601271 


JMP 

ER112«2 

/LOOP Through test with one in next position 

01277 

721000 


PAX 


/ACtffli store 400000 in XR 

01300 

725000 


AX340 


/AOO 0 to XR AND SKIP |Ft> LR 

01301 

741000 


8KP 



01302 

605122 

ER113 

JMP 

H113 

/error# skipped when LR«0 and XRpNCGATIVE 

01303 

104023 


JMS 

DONE 




/TEST 7 

,2 • TEST AXS roR NON. 

SKIP Condition when xrio and 



/IR HAS 

i 

A ONE 

FLOATED THROUGH 

it 

01304 

104000 

T7,2 

JMS 

repeat 


01305 

001324 


T7|3 



01306 

735000 


CLX 


/clear XR 

01307 

754030 


CUtCLAlIAC 

/clear ACf LINK and put ONE IN AC 

01310 

722000 


PAL 


/PLACE AC IN LR 

01311 

725000 


AX$«0 


/AOO 0 TO XR, SKIP IF i > LR 

01312 

741000 


SKP 



01313 

605124 

ERU4 

JMP 

Hill 

/error# skipped when LR f > XR 

01314 

740010 


RAL 


/rotate siT ANO TEST IF IT IS AC0 

01315 

74010? 


SMA 



01316 

601310 


JMP 

ER114.3 

/NO, LOOP THROUGH TEST AGAIN 

01317 

740030 


lAC 



01320 

722000 


PAL 


/AC0P1, STORE 400001 IN LR 

01321 

725000 


AXS«0 



01322 

605126 

ERU5 

JMP 

Hlt> 

/error# OlO NOT SKIP WHEN XRf0 AND LR^MINUS 

01323 

104023 


JMS 

DONE 





.EJECT 
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/TEST 

7,3 «* TEST AXS FOP NON-^SKJP WITH RlPPLE CARRT IN XR 

f^l324 

104000 

T7,3 

JMS 

repeat 


01325 

001334 


T6,0 



01326 

736000 


CLIR 


/clear limit register 

01327 

754001 


CLAICLL 

ICMA 

/all ones in AC 

01330 

721000 


PAX 



01331 

725001 


AXS*1 


/AOO 1 TO SET XR TO 0 

01332 

605130 

ERU6 

JMP 

H116 

/ERROR# SKIPPED WHEN XR»0, lRp0 

01333 

104023 


JHS 

DONE 




/TEST 

8 • test 

COMBINATIONS OF 

index register Instructions 



/TEST 

6,0 • FIRST combination 

instruction execution test using shifts 

01334 

104000 

T8,0 

JM8 

repeat 


01335 

001370 


T8,l 



01336 

205631 


UAC 

<525252 


01337 

722000 


PAL 



01340 

205632 


LAC 

(252525 


01341 

721000 


PAX 


/SHIFT OaTa around paths 

01342 

730000 


PLA 



01543 

726000 


PXL 



01544 

721000 


PAX 



01545 

724000 


PXA 



01346 

731000 


PLX 



01347 

722000 


PAL 


/SMIFT data and clear registers 

01350 

730000 


PLA 



01351 

736000 


CLLR 



01352 

722000 


PAL 



01353 

724000 


PXA 



01354 

735000 


CLX 



01555 

721000 


PAX 



01556 

734000 


CLAC 



01357 

730000 


PLA 



01360 

545631 


SAD 

(525252 


01361 

741000 


SKP 



01362 

605132 

ER117 

JMP 

H117 

/ERROR# bad data 

01363 

724000 


PXA 



01364 

545632 


SAD 

(252525 


01565 

741000 


SKP 



01366 

605134 

ER120 

JMP 

H120 

/ERROR# BAD DATA 

01367 

104023 


jMS 

done 



.tJECT 



) 
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/TEST 

8,1 • SECOND Combination instruction test using aooi 

SHIFTS 



't 



/AND i 

j 

machine mode changes always executing instructions in 

PAGE MODE 



01370 

104000 

/ 

T8,l 

JMS 

repeat 




) 

01371 

001422 


T8,2 






01372 

750001 


CLC 

/PLACE all ones in XR«LR 





01373 

722000 


pal 





) 

01374 

721000 


PAX 






01375 

707764 


E8A 

/bank mode to page mode 





01374 

707762 


epa 





) 

01377 

735000 


CLX 






01400 

707744 


CBA 

/bank mode to pace mode 





01401 

707762 


CPA 





) 

01402 

734000 


CLLR 

/clear lp 





01403 

730000 


PLA 






01404 

707744 


EBA 





) 

01405 

707742 


EPA 

/AOO 1 B 0 To XR, SHOULD NOW 





01406 

737100 


AXP*100 

CONTAIN 

100 



01407 

723100 


AAC*100 

/aOD 100 To aCi should now 

contain 

100 


) 

01410 

722000 


PAL 






01411 

730000 


PLA 






01412 

545641 


SAD 

(100 




) 

01413 

741000 


SKP 






01414 

605136 

CR121 

JMP 

M121 





01415 

724000 


PXA 





) 

01416 

545641 


SAD 

(10? 





01417 

741000 


SKP 

H122 





01420 

605140 

CR122 

JMP 




1 

01421 

104023 


JMS 

DONE 







/TEST 

6,2 •THIRD combination INSTRUCTION TEST USING ADOS, 

SKIPS, 



} 



/MACHINE MODE CHANOES AND SHIFTS 

j 




01422 

104000 

T8,2 

JMS 

repeat 





01423 

001444 


T8,21 





) 

01424 

735000 


CLX 






01425 

205633 


LAC 

(377 





01424 

722000 


PAL 





) 

01427 

734000 


CLAC 






01430 

707764 


EBA 






01431 

707762 


EPA 





) 

01432 

734000 


CLAC 






01433 

725377 


AXS*377 






01434 

605142 

ER124 

JMP 

H124 




) 

01435 

707764 


EBA 






01434 

707762 


EPA 






01437 

730000 


PLA 





) 

01440 

545633 


SAD 

(377 





01441 

741000 


SKP 

H125 





01442 

605144 

E«125 

jMp 




) 

01443 

104023 


JMS 

.eject 

DONE 



^7 



PACE 19 IN0X15 INDXig 


/TEST 8,21-roUPTM COMBINATION INSTRUCTION TEST USING CWAIN 
/OP XCTiX 


/ 


21444 

104000 

T8,2l 

JMS 

repeat 

31445 

001477 


T8,3 


0144A 

750030 


CUAI lAC 


01447 

721000 


PAX 


01450 

750000 


CLA 


31451 

411454 


XCT 

TIAiX 

01452 

723001 


AAC^l 


21453 

601455 


JMP 

.*2 

01454 

000000 

T8A 

0 


01455 

411460 


XCT 

T8B»X 

01456 

723001 


AAC*1 


01457 

601461 


JMP 

.*2 

01460 

000000 

T88 

0 


01461 

411464 


XCT 

TICiX 

01462 

723001 


AAQ«1 


01463 

601465 


JMP 

.*2 

01464 

000000 

TIC 

0 


01465 

411470 


XCT 

T80iX 

01466 

723001 


AAC*l 


01467 

601471 


JMP 

.*1 

01470 

000000 

T8D 

0 


01471 

723001 


AAC*1 


01472 

723001 


aacm 


01473 

545642 


SAD 

(12 

01474 

741000 


SKP 

M126 

01475 

605146 

eR126 

JMP 

01476 

104023 


JM8 

DONE 


.eject 



) RASE 20 

INDX15 

IN0X15 








/TEST 

8 1 

3 • 

TEST INTeR.RiOISTCR 

TRANSrCR or RANOOM 

NUMBERS 

) 


/BETWEEN 

1 AC 

AND LR 



01477 

104000 

T8,3 


JMS 

repeat 



i 0150(9 

301510 



T8,4 




^1501 

104325 



JMS 

RANOOM 

/OET random number 


01502 

722000 



PAL 


/PUT :N uR 


) 01503 

730000 



PLA 


/get it back 


01504 

544341 



SAD 

RANB 

/DID IT change? 


01505 

741000 



SKP 


/NOi continue 


) 0150$ 

$05150 

CR130 


JMP 

M130 

/tESi Error 


01507 

104023 



JMS 

DONE 





/test 

6. 

4 • 

test INtERBRCCISTER 

transfer or RANOOM 

NUMBERS 

) 


/BETWEEN 

1 AC 

ANO XR 



01510 

104000 

T8|4 


JMS 

repeat 



1 01511 

001521 



T8,5 




01512 

104325 



JMS 

RANOOM 

/get random number 


01513 

721000 



PAX 


/PUT IN xR 


' 01514 

724000 



PXA 


/C|T IT back 


01515 

544341 



SAO 

RANS 

/OlO IT change? 


0151$ 

741000 



SKP 


/NO, continue 


01517 

$05152 

ER131 


jMP 

HlSl 

/yes, Error 


01520 

104023 



JMS 

DONE 





/TEST 

8 1 

5 • 

test INTER*RECISTER 

transfer or random 

NUMBERS 


/BETWEEN AC TO L« TO XR TO AC 


/ 


01521 

104000 

T8,5 

JMS 

repeat 


01522 

001533 


T8,6 



01523 

104325 


JMS 

RANDOM 

/get random number 

01504 

721000 


PAX 


/mOvE around 

01525 

726000 


PXL 



01526 

730000 


PLA 



01527 

544341 


SAD 

RAN0 

/DID IT change? 

01530 

741000 


SKP 


/NO, continue 

01531 

605154 

CR132 

JMP 

H13S 

/yEs, Error 

01532 

104023 


JMS 

DONE 




/TEST 

0,6 • 

TEST INTeR.RcGISTER 

transfer or RANDOM NUMBERS 



/BEWTECN AC 

J 

TO XR TO LR to AC 

- 

01533 

104000 

T0,6 

JMS 

repeat 


01534 

001545 


T9,0 



01535 

104325 


JMS 

RANDOM 

/GlT random number 

01536 

722000 


PAL 


/MOVE Around 

01537 

731000 


PLX 



01540 

724000 


PXA 



01541 

544341 


SAD 

ranb 

/OlO IT chance? 

01542 

741000 


SKP 


/NO, continue 

01543 

605156 

ER133 

JMP 

H133 

/yEs, Error 

01544 

104023 


JMS 

DONE 



.EJECT 
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01545 

01546 

01547 

01550 

01551 

01552 

01553 

01554 

01555 

01556 

01557 

01560 

01561 

01562 

01563 


01564 

01565 

01566 

01567 

01570 

01571 

01572 

01573 

01574 

01575 

01576 

01577 
01600 
01601 
01602 


1N0X15 IN0X15 
/ 

/TEST9»TE:8T direct indexed addressing 
/ 

/TEST9.0.TCST LAC AND OAC INDEXED POSITivElY 


/ 


104000 

T9,0 

JM$ 

repeat 

001564 


T9, 01 


143722 


OiM 

PUT*2 

205643 


lac 

(2 

721000 


PAX 


213715 


LAC 

GETiX 

543717 


SAD 

GET*2 

741000 


SKP 


605160 

ER134 

JMP 

N134 

053720 


DAC 

PUTiX 

209722 


LAC 

PUT*2 

543717 


SAD 

CET*2 

741000 


SKP 


605162 

ER135 

JMP 

H135 

104023 


JMI 

DONE 


/TEST 

9,01-TCST 

lac and DAC 

104000 

T9, 01 

JMS 

repeat 

001603 


T9,l 


143722 


DIM 

PUT*2 

205644 


LAC 

(•1 

721000 


PAX 


213721 


LAC 

GET^AiX 

543717 


SAD 

GET*2 

741000 


SKP 


605164 

ER136 

JMP 

H1S6 

053724 


DAC 

PUT*4iX 

203722 


LAC 

9UT*2 

543717 


SAD 

C|T*2 

741000 


SKP 


605166 

ER137 

JMP 

H137 

104023 


JMS 

DONE 


iCJCCT 


/RUACE 2 IN INDEX REGISTER 

/GfT contents or CCT*2 
/SKIP Ir NpT CONTENTS OF 6CT*2 
/GOOD# CONTINUE 

/E«RORi index 0IT 5 FAILED HITM LAC 
/OIROSIT In PUT*2 

/get contents of RUT*2 
/8«IR IF NOT CONTENTS OF GET*2 

/E«RORi index bit 5 FAILED WITH OAC 

indexed negatively 


/RUT IN INDEX REGISTER 

/get contents of CET*2 
/SKIP If not contents of CET*2 

/E«R0R| wrong effective address calculated 
/O lPOSlT In PUT42 

/SKIP If NOT CONTENTS OF 6CT*2 

/EKRQRi wrong EFFECTIVE ADDRESS CALCULATED 
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IN0X15 


iNOXiS 


/TIST9, 1-test XoR ANd QiM INDEXED ^OSlTivCLT 


/ 


016D3 

104002 

T9,l 

JHS 

repeat 




01604 

301625 


T9, 11 





01605 

205645 


lac 

(1 

/PUACE 1 IN XR 



01606 

721000 


PAX 





01607 

750001 


cue 


/PLACE alU ones in PUT*! 



01610 

043721 


OAC 

PUT^l 

/DEPOSIT iIRO IN PUT*1 



01611 

153720 


DIM 

PUTiX 



01612 

203721 


LAC 

PUT*1 

/CET CONTENTS OF PUT*l 



01613 

740200 


SEA 


/SKIP If it GOT IEROCD 



01614 

605170 

ER140 

JMP 

H140 

/IRRORI index eiT 9 FAILED 

WITH 

OHM 

01615 

209631 


UAC 

(525252 




01616 

251622 


XOR 

K9.i,X 

(777777 

/XOR WITH CONTENTS OF K9,l*l 


01617 

549630 


SAD 




01620 

741000 


SKP 


/ERROR# index BIT 9 FAILED 



01621 

609172 

ER141 

JMP 

H141 

WITH 

XOR 

01622 

741000 

K9,1 

SKP 





01623 

252525 


252525 





01624 

104023 


JHS 

DONE 





/TEST 9, 11-TEST XOR AND OZM INDEXED NCCatIVElT 


/ 


01625 

104000 

T9, 11 

JM8 

repeat 



01626 

001647 


T9, 2 




01627 

209630 


LAC 

(■1 

/PLACE *1 IN iNOex REGISTER 


01630 

721000 


PAX 




01631 

750001 


CLC 


/PLACE all one in PUT*1 


01632 

043721 


OAC 

PUT*1 



01633 

153722 


DZM 

PUT*2iX 

/DEPOSIT 2IRO IN PUT*1 


01634 

203721 


LAC 

PUT*l 



01639 

740200 


3ZA 


/SKIP IF RUT*1 cleared 


01636 

609174 

ER142 

JMP 

H142 

/error# wrong EFFECTIVE ADDRESS 

CALCULATED 

01637 

205631 


lac 

(525292 



01640 

251646 


XOR 

K9,ll*2#X 

/XOR WITW CONTENTS OF K9,ll*l 


01641 

549630 


SAD 

(777777 



01642 

741000 


SKP 




01643 

609176 

ER143 

JMP 

H143 

/error# wrong effective ADDRESS 

calculated 

01644 

741000 

k9,11 

SKP 




01645 

252925 


252529 




01646 

104023 


JMS 

DONE 




/TEST9,2t.TEST JHS ANq JMP INDEXED 


/ 


01647 

104000 

T9, 2 

JHS 

repeat 





01650 

001662 


T9, 3 






01691 

205643 


LAC 

(2 

/PLACE 2 IN XR 




01692 

721000 


PAX 






01653 

113725 


JHS 

SUB1,X 

/JHS TO SUB1*8 




01654 

609200 

ER144 

JMP 

H144 

/error# index BIT 9 

FAILED 

WITH 

JHS 

01659 

209645 


LAC 

(1 

/PLACE 1 In xR 




01696 

721000 


PAX 






01657 

613732 


JMP 

SUS2,X 

/JHP SUB2*l 




01660 

605202 

ER145 

JMP 

H145 

/ERROR# INDEX BIT 9 

FAILED 

WITH 

JHS 

01661 

104023 


JMS 

.EJECT 

done 
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INOXiJ 


IN0X15 




/TESTS, 

3«TEST 

SAD and XCT 

01662 

104000 

T9, 3 

JM9 

repeat 

01663 

001702 


TS,4 


01664 

736000 


CLLR 


01669 

209643 


LAC 

(2 

01666 

721000 


PAX 


01667 

203717 


LAC 

GET*2 

01670 

993719 


SAO 

GETiX 

01671 

741000 


SKP 

M146 

01672 

609204 

ER146 

JMP 

01673 

209649 


lac 

(1 

01674 

721000 


PAX 


01679 

413734 


XCT 

SUB^iX 

01676 

609206 

ER147 

JMP 

H147 

01677 

104023 


JNI 

DONE 



/tests; 

ATTEST 

remainder oI 



/indexed add, 

M 

TAD.ISifANO 

01700 

104000 

TS,4 

JMS 

repeat 

01701 

001732 


T9, 5 


01702 

143720 


02M 

PUT 

01703 

143722 


02H 

PUT*2 

01704 

209649 


LAC 

(1 

01709 

721000 


PAX 


01706 

750000 


OLA 

TOTE.X 

01707 

313736 


ADO 

01710 

543737 


SAD 

TOTE*l 

01711 

741000 


SKP 


01712 

609210 

ER150 

JMP 

H19? 

01713 

737001 


AXR*1 


01714 

353736 


TAD 

TOTE.X 

01719 

545646 


SAD 

(770 

01716 

741000 


SKP 


01717 

609212 

ER151 

JMP 

H151 

01700 

453720 


!82 

PUT#X 

01721 

203722 


LAC 

PUT*2 

01722 

945645 


SAD 

(1 

01723 

741000 


SKP 

H192 

01724 

605214 

ER152 

JMP 

01729 

913720 


and 

PUT»X 

01726 

545649 


SAD 

(1 

01727 

741000 


SKP 

H193 

01730 

605216 

ER153 

JMP 

01731 

104023 


JMS 

DONE 


.EJECT 


INDEXED 


/CLEAR tiMIT register 
/RLACE 2 In xR 

/CiT contents or GET*2 

/ERRORi index bit S rAllEO WITH SAD 
/place 1 IN XR 


/|RROR» index bit 9 PAlLEO WITH XCT 
MEMORY REPERENCE INSTRUCTIONS 

/IERO area roR tSi TEST 

/PLACE 1 IN xR 

/clear AC AND ADO TOTE*l 

/CRRORi add indexed rAUED 

/AOD 1 TO XR 


/error# tad indexed PAILED 
/iSi PUT#2 


/error* ISE indexed PAIIEO 
/and AC WITH PUT*2 


/ERRo# and Indexed tailed 



) 

PA6C 24 

IN0X15 

IN0X15 







/TCST9,5«TEST 

That Cal and cal* indexed oO not index 


0X^32 

104000 

T9, 5 

JHS 

repeat 



01733 

001756 


T10,0 




01734 

205647 


LAC 

(JMP* 20 

/iNITULliE RETURN 


01735 

040021 


OAC 

21 



01736 

205650 


LAC 

(IS2 21 


) 

01737 

040022 


OAC 

22 



01740 

205651 


LAC 

(JMP# 21 



01741 

040023 


OAC 

23 


) 

01742 

205645 


UAC 

(1 



01743 

721000 


PAX 


/T«Y TO cal indexed 


01744 

000000 


CAL 

0iX 

) 

01745 

741000 


SKP 




01746 

605220 

CR154 

JMP 

M154 

/CRRORi cal indexed WORKED 


01747 

205652 


LAC 

(3 

/place 3 IN XR 

) 

01750 

721000 


PAX 




01751 

205653 


LAC 

($U64 



01752 

040020 


OAC 

20 


) 

01753 

330000 


cal* 

0|X 



01754 

605222 

tR155 

JHP 

H15» 

/errori cal* indexed worked 

) 

01755 

104023 


JMS 

DONE 




/TCSTlf' 

•TEST indirect INDEXED 

addressing 

) 



/TCST10 

,0-test 

lac* and dac# 

indexed 


01756 

104000 

n0.0 

JHS 

repeat 


) 

01757 

002002 


Ti0,l 




01760 

145747 


02M 

1CET*1 



01761 

203715 


lac 

GET 


) 

01762 

740031 


CHAJIAC 

/calculate and save address OlfFERENCE 


01763 

343746 


TAD 

IGCT 


01764 

721000 


PAX 


/between det and ioet 

) 

01765 

750000 


CLA 




01766 

233715 


lac# 

GCTiX 

/get contents or iset 


01767 

543746 


SAD 

IGET 


’ 

01770 

741000 


SKP 




01771 

605224 

eRi60 

JMP 

H160 

/E«ROR# lAC* indexed TAILED 


01772 

737001 


AXR*l 



■' 

01773 

203715 


wAC 

GET 

/deposit at iget#i 


01774 

073715 


OAC# 

GETiX 


01775 

203747 


LAC 

IGET*1 

/get results or get operation 

; 

01776 

543715 


SAD 

GET 



01777 

741000 


SKP 




02000 

605226 

ER161 

JHP 

M161 


) 

02001 

104023 


JMS 

.EJECT 

done 




i 
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INDX15 


IN0X15 


/TEsn0il»TEST JMP# ANO JM5* tNOiXfO 


/ 


P2002 

104000 

Tli5,l 

JM8 

repeat 


02003 

002017 


T10,2 



02004 

205654 


lac 

(JMP ER162 

/IMIT1ALI2C error RETURN 

02005 

043721 


OAC 

PUT*1 


02006 

205655 


UAC 

(5 

/PLACE 5 In xR 

02007 

721000 


PAX 



02010 

133750 


JMS* 

jacT,x 

/JM$ TO SU01*2 

02011 

605230 

E«i62 

JM0 

H162 

/fRROPi JMI# indexed PAIUEO 

02012 

205645 


LAC 



02013 

721000 


PAX 



02014 

633751 


JMP# 

JSJ02iX 

/E'^RORi jMp# indexed failed 

02015 

605232 

ER163 

JMP 

H163 

02016 

104023 


JMS 

DONE 

indexed 



/TEST10 

,2»TEST 

SAD* AND XCT« 

02017 

104000 

y 

T10,2 

JMS 

repeat 


02020 

002034 


710,3 



02021 

205643 


LAC 

(2 

/place 2 In xR 

02022 

721000 


PAX 



02083 

203717 


lac 

GCT*2 

/PUT DUanTITY GCf*2 IN AC 

02024 

573754 


SAD* 

SCCT,X 

/check ir SAD INDIRECT INDEXED OK 

02025 

741000 


8KP 



02026 

605234 

ER164 

JMP 

W14! 

/ERRORt SAD# indexed FAILED 

02027 

433755 


XCT# 

SSETXiX 


02030 

543715 


SAD 

GET 


02031 

741000 


SKP 


/ERROR, xCT* indexed FAILED 

02032 

605236 

ER165 

JMP 

M169 

02033 

104023 


JMS 

DONE 



.EJECT 
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/TEST 10,3 TEST LAC*A|X wWCRI A !8 AN lNC«EA8lN(5 POSITIVE VALUE 
/TO MAX OP 77777 AN X IS AN INCPC681N8 nEOATIVE VALUE SO THAT 

/AN epfectivc address or 0 IS always calculated 


/ 



02034 

104320 

T10,3 

JMS 

INIT10 



08039 

104000 


JMS 

repeat 


) 

08036 

002061 


T11,0 




02037 

142097 


02M 

Vl0i3 

/CLEAR variable ST0RA6C*XR 


08040 

739000 


cux 


/sEt constant in LOC 0 

) 

08041 

209631 


lac 

(929292 


08048 

040000 


OAC 

0 



02043 

832097 

L10,S 

lac* 

V10i3|X 

/address LOC 0 

) 

08044 

949631 


SAD 

(929298 



08049 

741000 


8KP 




08046 

609240 

ER166 

JHP 

W166 

/LDC 0 not AOORCSSCDI ip PAlLUl^C 

) 

08047 

202097 


LAC 

V10i3 

/PLACE JMP ,-3 IN ER166 TO SEE 


08090 

740030 


lAC 


/LOOP And insure loop is not incremented 


08091 

949696 


SAD 

(100000 

/END, vet 

) 

08098 

608060 


JMP 

V10«3*l 

/vcs# Exit 


08093 

042097 


DAC 

Vl0i3 

/nO, save 


08094 

740031 


CMAI lAC 



) 

02099 

721000 


PAX 


/put compliment in xr 


02096 

602043 


JMP 

L10t3 



02097 

000000 

V10.3 

0 



) 

02060 

104023 


JMS 

DONE 


) 



/TESTll 

•TEST INDIRECT INDEX 

auto incremented addressing 



/TESTll 

, 0-TEST 

LACp 10iOaC* 

10 

) 

02061 

104313 

Tll,0 

JMS 

initn 

/restore normal loop count 


02062 

104000 


JMS 

repeat 



02063 

002109 


Tll.l 



) 

02064 

203760 


LAC 

DATA 

/iNlTIALilE 10 


02069 

040010 


DAC 

10 



08066 

209649 


lac 

(1 

/PUT 1 IN XR 

) 

02067 

721000 


PAX 




02070 

830010 


lac* 

10|X 

/LOAD GETP8 INTO AC 


02071 

943762 


SAD 

0ATA*2 


) 

02072 

741000 


SKP 




02073 

609242 

ER170 

JMP 

H170 

/ERRORt 


02074 

209697 


LAC 

(STORE 


) 

02079 

040010 


OAC 

10 



02076 

209631 


lac 

(989252 



02077 

070010 


DAC* 

10#X 

/deposit In PUT*2 

) 

08100 

803769 


LAC 

ST0RE*2 



02101 

949631 


SAD 

(589258 



08102 

741000 


SKP 



) 

02103 

609244 

ER171 

JMP 

H171 

/error 


02104 

104023 


JMS 

.EJECT 

done 



. 7 ^ 


) 





PACE 27 


IN0X15 


IN0X15 


/TESni,l*TEST SAD» H|XCT« 11 


/ 


?2105 

104000 

Tll.l 

JMS 

repeat 


02106 

002126 


Til, 2 



02107 

205645 


LAC 

a 

/PUT A one in index register 

02110 

721000 


PAX 



02111 

203760 


LAC 

data 

/PUT address of loc DATa in auto index 

02112 

040011 


OAC 

11 


02113 

203762 


LAC 

0ATA#2 

/GET contents of 0ATA*2 AND COMPARE 

02114 

570011 


SAD* 

H|X 

/WITH SrL^ VIA auto index indexed 

02115 

741000 


SKP 



02116 

605246 

ER172 

JMP 

H172 


02117 

750000 


CUA 



02120 

737004 


AXII44 


/AOD 4 TO XR 

02121 

430011 


XCT« 

U|X 

/XCT LOCATION JXCT 

02122 

543762 


SAD 

0ATA42 


02123 

741000 


SKP 



02124 

605250 

ER173 

JMP 

H173 


02125 

104023 


JMS 

DONE 




/Ti:STll,2«TCST 

JMP# ITiJmS# 17 

indexed 

02126 

104000 

Til. 2 

JMS 

repeat 


02127 

002143 


Til, 3 



02130 

205645 


LAC 

(1 


02131 

721000 


PAX 



02132 

203770 


LAC 

JSUB3 

/PUT address JSUB3*1 IN L0C.17 

02133 

040017 


DAC 

17 


02134 

630017 


JMP# 

17, X 

/JMp TO jSuB34 

02135 

605252 

ER174 

jMp 

H174 

/AOD 1 TO XR, NEW TOTAL 2 

02136 

737001 


AXR#1 


02137 

440017 


IS0 

17 

/aOO 1 TO 17 TO make IT JSUB3*3 

02140 

130017 


JMS# 

17, X 


02141 

605254 

ER175 

JMP 

H175 


02142 

104023 


JMS 

DONE 




/TEST 

11,3 » TEST lAC*XR AFTER 

mode change 

02143 

104000 

Til, 3 

JMS 

repeat 


02144 

002157 


T12,0 



02145 

750000 


CLA 



02146 

723002 


AAC42 



02147 

721000 


PAX 


/PLACE quantity 2 INXR 

02150 

707764 


EBA 


/toggle mode 

02151 

707762 


EPA 



02152 

213715 


LAC 

GETfX 

/USE indexed addressing 

02153 

543717 


SAD 

G£T*2 


02154 

74100? 


SKP 



02155 

605256 

ER176 

JMP 

H176 


02156 

104023 


JMS 

•EJECT 

DONE 
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IN0X15 

1^0X15 







/ 

/TEST 

12 • TEST 

FOR INDEXED lAC 

, OAC ACCESS TO ALL FIELDS 



/IN ALL BLOCkSi 

ONE BLOCK 

AT A 

time 



/TEST 

XCT TO FI 

,F3,F5|F7 

AND LAC* ’0 F0,r2,r4,r6 INDEXED 



/TEST 

12,0-TEST 

access TO 

FIELD 

0 

02157 

104000 

T12.0 

JHS 

repeat 



02160 

002213 


T12,l 




02161 

404166 


XCT 

TEP0 


/DOES This test exist? 

02162 

602536 


JMP 

T13,01 


/nON-EX mEm, CO TO NEXT GROUP OF TEStS 

02163 

205660 


LAC 

(NOP 


/PLACE NOP IN TEST LOC IN r0,80 

02164 

047000 


OAC 

TSTLOC 



' 02165 

204156 


lac 

r0A 


/PLACE PC BITS FOR FP IN XR 

02166 

344201 


TAD 



/AOD BLOCK BITS 

02167 

721000 


PAX 




^ 02170 

760000 


law 

0 


/deposit law 0 

02171 

344203 


TAD 

SLKCON 



02172 

044204 


OAC 

TEMKON 



' 02173 

057000 


OAC 

TSTLOCiX 



02174 

217003 


lac 

TSTLOCiX 



02175 

544204 


SAD 

TEMKON 



' 02176 

741000 


SKP 



/llTMCR lAC or OAC TO F0 FARED 

02177 

605260 

ER200 

JMP 

H200 


02200 

204156 


lac 

P0A 



' 02201 

344201 


TAD 

BLOCK 



02202 

721000 


PAX 




02203 

204156 


LAC 

r0A 



' 02204 

345661 


TAO 

(7000 



02205 

044216 


OAC 

POINTI 



02206 

234216 


lac» 

POINT!, X 



^ 02207 

544204 


SAO 

TEMKON 



02210 

741000 


SKP 




02211 

605262 

ER201 

JMP 

N201 


/LAC*,X TO TSTLOC TO F0 FARED 

02212 

104023 


JMS 

.EJECT 

DONE 






PACE 29 IN0X15 IM0X15 

/ 

/TEST 12,1 • TEST ACCESS TO riELD 1 


/ 


32213 

104000 

T12.1 

JMS 

repeat 

32244 

002247 


T12.2 


32215 

404167 


XCT 

TEPl 

02216 

602536 


JHR 

Tl3i01 

02217 

760000 


law 

0 

02220 

047000 


OAC 

TSTLOC 

02221 

204157 


LAC 

PIA 

02222 

344201 


TAO 

BLOCK 

02223 

721000 


PAX 


02224 

760001 


law 

1 

02225 

344203 


TAO 

blkcon 

02226 

044204 


DAC 

temkon 

02227 

057000 


DAC 

TSTLOCiX 

02230 

207000 


LAC 

TSTLOC 

02231 

545662 


SAD 

(LAW 

02232 

741000 


SKP 


02233 

605264 

ER202 

JMP 

H202 

02234 

217000 


LAC 

TSTLOCiX 

02235 

544204 


SAD 

TEMKON 

02236 

741000 


SKP 


02237 

605266 

ER203 

JHP 

H203 

02240 

750000 


CLA 


02241 

417000 


XCT 

TSTLOCiX 

02242 

544204 


SAD 

temkon 

02243 

741000 


SKP 


02244 

605270 

ER204 

JMP 

H204 

02245 

103416 


JMS 

TCStro 

02246 

104023 


JMS 

.EJECT 

DONE 


/DOES This fiELO CXISTt 

/non*ex mem, go to next group or tests 
/PLACE LAW 0 IN test LOC IN fS 

/PLACE PC SITS rOR Pi IN XR 
/add BLOCK BITS 

/deposit law 1 IN test ♦ CONSTANT 


/LOCATION OP PI 
/LAC TEST LOC IN P0 


/Ef’RORi OAC OCCURRED IN PB 
/LAC TEST LOC IN PI 


/E^^ROR, either lac or DAC To pi PAILEO 

/XCT test LOC IN PI 


/ERRORi xct indexed to pi pailcd 
/TEST Ir LOC IN P0 HOOIPIEO 



PACE 30 IN0X15 iv'OXiS 

/TEST 12,2 - TEST ACCESS TO FIELD 2 


/ 


02247 

104000 

n2,2 

JMS 

repeat 

02250 

002310 


T12,3 


02251 

404170 


XCT 

TEF2 

02252 

602536 


JMP 

T13,01 

02253 

760000 


LAW 

0 

02254 

047000 


OAC 

TSTLOC 

02255 

204160 


LAC 

F2A 

02256 

344201 


TAD 

BLOCK 

02257 

721000 


PAX 


02260 

760002 


law 

2 

02261 

344203 


TAD 

BLKCoN 

02262 

044204 


DAC 

TEMKON 

02263 

057000 


OAC 

TSTLOC#X 

02264 

207000 


LAC 

TSTLOC 

02265 

545662 


SAO 

(LAW 

02266 

741000 


SKP 


02267 

605272 

ER205 

jMP 

H2B> 

02270 

217000 


LAC 

TSTLOC#X 

02271 

544204 


SAD 

TEMKON 

02272 

741000 


SKP 


02273 

605272 

ER206 

JMP 

H20^ 

02274 

204157 


LAC 

FIA 

02275 

344201 


TAD 

BLOCK 

02276 

721000 


PAX 


02277 

204157 


lac 

FIA 

02300 

345661 


TAD 

(7000 

02301 

044216 


OAC 

POINTl 

02302 

234216 


lac* 

POINTl.X 

02303 

544204 


SAD 

TEMKON 

02304 

741000 


SKP 


02305 

605276 

ER207 

JMP 

H207 

02306 

103401 


jMS 

TEStFl 

02307 

104023 


JMS 

DONE 


.EJECT 


/DOES This field exist? 

/n0n»EX mEm, CO TO NEXT CROUP OF TESTS 


/PLACE PC BITS FOR P2 IN XR 
/aoo block bits 


/OAC in test location of F2 
/get test loc in fb 


/EKRORi OAC OCCURRED IN F0 
/SET TEST LOC IN f2 


/error# lAC or OAC INDEXED TO F2 FAILED 


/error# lACp indexed TO LOC TO F2 FAILED 
/TEST IF LOC IN Fl MODIFIED 



PAGE 


31 

1N0X15 

INDX15 






/TEST 

12|3 - 

TEST ACCESS 

TO field 3 

02313 

i040e^ 

T12,3 

JMS 

repeat 


02311 

002344 


T12, 

4 


02312 

404171 


XCT 

TEP3 

/DOES This field exist? 

02313 

602536 


JMP 

T13,01 

/NO, NONbEX meh, go to next test 

02314 

760000 


law 

0 


02315 

047000 


DAC 

TSTLOC 


02316 

204161 


lAC 

r3A 

/PLACE PC BITS FOR F3 IN XR 

02S1T 

344201 


TAO 

PLOCK 

/ADO block BITS 

02320 

721000 


PAX 



02321 

760003 


LAW 

3 


02322 

344203 


TAO 

8LKC0N 


02323 

044204 


OAC 

tcmkon 


02324 

057000 


DAC 

TSTLOC, X 

/DaC in TEST LOC IN F3 

02325 

207000 


LAC 

TSTLOC 

/TEST LOC IN F0 

02326 

545662 


SAD 

(LAW 


02327 

741000 


SKP 



02330 

605300 

Efl2l0 

JMP 

H210 

/ERROR, DAC occurred IN r0 

02331 

217000 


lac 

TSTLOC, X 

/GET CONTENTS OF TEST LOC IN F3 

02332 

544204 


SAD 

TEMKON 


02333 

741000 


SKP 



02334 

605302 

ER211 

JMP 

M2ii 

/ERROR, lAC or OAC INDEXED INTO F3 FAILED 

02335 

750000 


CLA 



02336 

417000 


XCT 

TSTLOC, X 

/XCT test LOC IN FS 

02337 

544204 


SAD 

TEMKON 


02340 

741000 


SKP 



02341 

605304 

ER212 

JMP 

M212 

/ERROR, XCT INDEXED TO F3 FAILED 

02342 

103364 


JMS 

TCSTr2 

/TEST If LOC IN F2,F1 MODIFIED 

02343 

104023 


JMS 

DONE 



.EJECT 
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/TEST 12,6 a TEST ACCESS 


/ 


02441 

104000 

112.6 

JMS 

repeat 

02442 

002502 


T12,7 


02443 

404174 


XCT 

TEr6 

02444 

602536 


JMP 

Ti3,01 

02445 

760000 


law 

0 

02446 

047000 


DAC 

tstloc 

02447 

204164 


LAC 

F6A 

02450 

344201 


TAD 

BLOCK 

02451 

721000 


PAX 


02452 

760006 


law 

6 

02453 

344203 


TAD 

BLKCON 

02454 

344204 


OAC 

TEMKqn 

02455 

057000 


DAC 

TSTLOCiX 

02456 

207000 


LAC 

TSTLOC 

02457 

545662 


SAD 

(LAW 

02460 

741000 


SKP 


02461 

605322 

ER221 

JMP 

H221 

02462 

217000 


LAC 

TSTLOC, X 

02463 

544204 


SAD 

TEMKON 

02464 

741000 


SKP 


02465 

605324 

ER222 

JMP 

H222 

02466 

204161 


LAC 

F3A 

02467 

344201 


TAD 

BLOCK 

02470 

721000 


PAX 


02471 

204161 


lac 

F3A 

02472 

345661 


TAD 

(7000 

02473 

044216 


DAC 

POINT! 

02474 

234216 


lac« 

POINTIiX 

02475 

544204 


SAD 

TEMKON 

02476 

741000 


SKP 


02477 

605326 

ER223 

JMP 

H223 

02500 

103315 


JMS 

TESTF5 

02501 

104023 


JMS 

DONE 




•EJECT 



TO FIELD 6 


/DOES This field exist? 
/vO, GO TO MEXT test 


/yes, Place pc bits for f6 in xr 
/add block bits 


/OaC test LOC in F6 
/test LOC in F0 


/E«R0R| DAC occurred IN F0 

/GET contents of TEST LOC IN F6 


/ERRORi lAC or OAC INiOEXEO TO F6 FAILED 


/ERRORi xCT indexed to F6 failed 
/TEST If LOC IN F5iF4,F3,F2,Fl MODIFIED 
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INI0X15 


IN0X15 


/TEST 12, T - TEST AQCESS TO 


/ 


02502 

104000 

T12,7 

JMS 

repeat 

02503 

002536 


T13,?l 


02504 

404175 


XCT 

TEF7 

02505 

602536 


JMP 

T13,01 

02506 

760000 


law 

0 

02507 

047000 


DAC 

TSTLOC 

02510 

204165 


LAC 

F7A 

02511 

344201 


TAD 

BLOCK 

02512 

721000 


PAX 


02513 

760007 


LAW 

7 

02514 

344203 


TAD 

BLKCON 

02515 

044204 


DAC 

TEMKON 

02516 

057000 


DAC 

TSTLOC, X 

02517 

207000 


LAC 

TSTLOC 

02520 

545662 


SAD 

(LAW 

02521 

741000 


SXP 


02522 

605330 

ER224 

JMP 

H224 

02523 

217000 


LAC 

TSTLOC, X 

02524 

544204 


SAD 

TEMKON 

02525 

741000 


SKP 


02526 

605332 

ER225 

JMP 

h225 

02527 

750000 


CLA 


02530 

417000 


xCT 

TSTLOC, X 

02531 

544204 


SA-O 

TEMKON 

02532 

741000 


SKP 


02533 

605334 

ER226 

JMP 

W226 

02534 

103300 


JMS 

TEStF6 

02535 

104023 


JMS 

DONE 


.EJECT 


IELO ^ 


/DOES TwiS FIELD EXIST? 
/NO, GO TO NEXT TEST 


/yes, Place pc bits fop f? in xr 
/aoo block bits 


/Dac in test LOC in F7 
/TMT LOC in F0 


/ERROPi dac occurred IN FE 

/GET CONTENTS OF TEST LOC IN F7 


/error, lac or dac indexed to f7 failed 

/XCT TEST LOCATION IN F7 


/ERROR, xCT INDEXED TO F? FAILED 

/TEST If LOC IN F6,F5,F4,F3,P2,F1 MODIFIED 
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/ 

/TEST 13 « RELOCATE TEST PROGRAM iN UPPER MEhORY PAGE IF IT EXISTS 
/AND TRA\iSFeR ConjTROl TO THIS PROGRAM Tq VERIFY INDEXED OPERATION 


/ 




/TEST 

13.01 

- Test pop 

LAC^OAC* AUTO INDEX INDEXED TO F0 


?2536 

144211 

/ 

T13,01 

OZM 

count 

/are WE testing block 0? 


02537 

204202 


LAC 

8LKN0 


02540 

741200 


SNA 


/NO, PErpORM TWESE TESTS 


02541 

602612 


JMP 

Tl3ill 

/YES, SkP TMESC TESTS 


02542 

104003 


JMS 

repeat 



02543 

002561 


T13, 

02 



02544 

404166 


xCT 

TEPa 



32545 

603435 


JMP 

TSTOP 



02546 

104364 


JMS 

2CRMEM 

/ZERO All memory except F0 ONCE 


02547 

204156 


lac 

r0A 

/get address of block ♦ FIELD 


02550 

344231 


tad 

BLOCK 



02551 

103502 


JMS 

mQVEI 

/yesi Move test program to this field 


02552 

760001 


tAW 

1 

/test Constant 


02553 

344233 


TAD 

BLKCoN 



02554 

103665 


JMS 

MlNlT 

/INITIAL12E constants 


02555 

117000 


JMS 

TSTLCC.X 

/XCT TEST program IN RESIDENT 

field 

02556 

605336 

ER227 

JMP 

W227 

/lac* autO index indexed to f0 failed 


02557 

605340 

ER230 

JMP 

H230 

/qac* Auto index indexed to f0 failed 


02560 

104023 


JMS 

DONE 





/TEST 

13.02 

^ Test f? for 

laciDac.sao And jms indexed in resident field 

02561 

104000 

T13,02 

JMS 

repeat 

/cal from mere indicates JMS*X8 failed 


02562 

302576 


Ti3, 

03 



02563 

204156 


LAC 

F0A 



02564 

344201 


TAD 

BLOCK 

/YES, Move test program to twis field 


02565 

103514 


JMS 

M0VE2 


02566 

760002 


law 

2 

/test Constant 


02567 

344203 


TAD 

BLXCON 



02570 

103665 


JMS 

MINIT 

/iNlTIALliC constants 


02571 

117000 


JMS 

TSTLCC.X 

/XCT TEST program IN RESIDENT 

FIELD 

02572 

605342 

ER231 

JMP 

H23X 

/LAC indexed IN resident field failed 


02573 

605344 

ER232 

JMP 

H232 

/OAC indexed in resident field failed 


02574 

605346 

ER233 

JMP 

H233 

/sad indexed in RESIDENT FIELD FAILED 


02575 

104023 


JMS 

done 





/TEST 

13,03 

- test F0 for 

OAC and tad Indexed tq F0 


02576 

104000 

/ 

T13.03 

JMS 

repeat 



02577 

002612 


T13, 

11 



02600 

204156 


LAC 

r0A 



02601 

344201 


TAD 

block 



02602 

103526 


JMS 

M0YE3 

/yes, Move test program to twis pielo 


02603 

760003 


law 

3 

/test Constant 


02604 

344203 


TAD 

BLKCCN 



02605 

103665 


JMS 

M I N 1 T 

/initialize constants 


02606 

117000 


JMS 

TSTLCC.X 

/XcT test program in resident 

field 

026t?7 

605350 

ER234 

jMp 

h234 

/DAC indexed to F0 failed 


026ir 

605352 

ER235 

JMP 

h235 

/tad indexed to F0 failed 


02611 

104023 


JMS 

DONE 






.EJECT 
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/TEST 

13,11 

test Fl 

FOR 

22612 

144211 

Tl3,ll 

OZM 

COUNT 


22613 

1040f»0 


JMS 

repeat 


02614 

002632 


T13, 

12 


22613 

404167 


xCT 

TEFl 


02616 

603435 


JMP 

TSTOP 


02617 

104364 


JMS 

hermem 


02620 

204157 


LAC 

FIA 


02621 

344201 


TAD 

BLOCK 


02622 

103502 


JMS 

mOVEI 


02623 

760101 


law 

101 


02624 

344203 


TAD 

BLKCcN 


02625 

103665 


JMS 

MlNlT 


02626 

11700? 


JMS 

TSTLCC 

|X 

02627 

605354 

ER236 

JMP 

h236 


02630 

605356 

ER237 

jMp 

H237 


02631 

104023 


JMS 

done 




/TEST 

13,12 

test Fl 

FOR 

02632 

104000 

T13,12 

JMS 

repeat 


02633 

002651 


T13, 

13 


02634 

404167 


XCT 

TEFl 


02635 

603435 


JMP 

TSTOP 


02636 

204157 


LAC 

FIA 


02637 

344201 


TAO 

BLOCK 


02640 

103514 


JMS 

M0VE2 


02641 

760102 


LAW 

102 


02642 

344203 


TAD 

8LKC0N 


02643 

103665 


JHS 

MINIT 


02644 

117000 


JMS 

TSTLOC 

|X 

02645 

605360 

ER240 

JMP 

H24i9 


02646 

605362 

ER241 

JMP 

H241 


02647 

605364 

ER242 

JMP 

H242 


02650 

104023 


JMS 

done 




/TEST 

j 

13.13 

- test Fl 

FOR 

02651 

104000 

i 

Tl3,l3 

JMS 

repeat 


02652 

002667 


T13, 

21 


02653 

404167 


XCT 

TEFl 


02654 

603435 


JMP 

TSTOP 


02655 

204157 


LAC 

FIA 


02656 

344201 


TAO 

BLOCK 


02657 

103526 


JMS 

MOVE3 


0266? 

760103 


law 

103 


02661 

344203 


TAO 

BLKCcN 


02662 

103665 


JMS 

MlNiT 


02663 

ll700d 


JMS 

TSTLCC 

iX 

02664 

605366 

ER243 

JMp 

W243 


02665 

625373 

ER244 

JMP 

M244 


02666 

104023 


JMS 

DONE 



.EJECT 


LAC*OAC* AUTO INDEX INDEXED TO E0 


/DOES This field exist? 

/NO, CO TO NEXT CROUP OF TESTS 
/iERO All MEMORy EXCEPT TO ONCE 

/C^T address of block * field 

/YESi HovE test program to this field 
/test Constant 

/initialize constants 

/XCT test program- in resident field 
/L*c» Auto index indexed to re failed 
/ o*c» Auto index indexed to failed 

lac»dac,sao And jms indexed in resident fiflo 

/C^L FRo^ here indicates Jhs*XR failed 

/DOES This field exist? 

/NO, GO TO next group OF TESTS 


/YES, move TEST PROGRAM to TmIS FIELD 
/TEST Constant 

/initialize constants 

/XCT TEST program Is RESIDENT FIEuC 

/L*c indexed in resident field Failed 
/dac indexed in resident field Failed 
/ sAD indexed in resident field Failed 

oac and tad Indexed to re 


This field exist? 

/no, go to next group of tests 


/yes. Move test program to twis picld 
/test Constant 

/initialize constants 

/XCT TEST PROCRA'^ IN RESIDENT Frr^- 

/OAC indexed to f? failed 
/tad indexed to f? Failed 



PACE 
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/TEST 

13,21 

- test F2 for 

32667 

104003 

/ 

Tli , 21 

JMS 

repeat 

32673 

^22736 


T13, 

22 

32671 

40417C 


XCT 

TEF2 

32672 

603435 


JMP 

TSTOP 

02673 

104364 


JMS 

zermem 

32674 

204163 


lac 

F2A 

32675 

344201 


tad 

BLOCK 

32676 

103502 


JMS 

MOVEl 

32677 

763201 


law 

201 

32703 

344203 


TAD 

9LKC0N 

32701 

103665 


JMS 

MINIT 

02702 

117000 


JMS 

TSTLOC.X 

02703 

605372 

ER245 

JMP 

H245 

02704 

605374 

ER246 

jMP 

H246 

32705 

104023 


JMS 

DONE 



/TEST 

13.22 

- test F2 for 

32706 

104000 

T13,22 

JMS 

repeat 

32707 

002725 


Tl3, 

23 

02710 

404170 


XCT 

TEF2 

02711 

603435 


JMP 

TSTOP 

32712 

204160 


LAC 

F2A 

32713 

344231 


tad 

Block 

32714 

103514 


JMS 

M0VE2 

32713 

760202 


law 

202 

02716 

344203 


TAD 

3L<C0S 

32717 

103665 


JMS 

MINIT 

02723 

117003 


JMS 

TSTLOC.X 

32721 

635376 

ER253 

JMP 

h250 

02722 

605430 

ER251 

JMP 

h231 

02723 

605402 

ER252 

JMP 

H252 

32724 

104023 


JMS 

done 



/TEST 

1 3 » 23 

- test F2 for 

02725 

104030 

n3.23 

JMS 

repeat 

02726 

002743 


Ti3, 

31 

02727 

404173 


XCT 

TeF2 

02733 

603435 


JMP 

TSTOP 

02731 

204160 


LAC 

r2A 

02732 

344201 


TAD 

BLCCrf 

02733 

103526 


JMS 

*"0VE3 

02734 

760203 


law 

203 

02735 

344233 


TAD 

BL<CCN 

02736 

103665 


JMS 

M I V I T 

02737 

117000 


JMS 

TSTLOC, X 

0 27 4 D 

605404 

ER253 

JMP 

H253 

02741 

605406 

ER254 

JMP 

H254 

02742 

104023 


J^S 

DONE 




.eject 


LAC*QAC« AUTO INDEX INDEXED TO 


/DOES This riEUD exist? 

/N0» CO TO next gpoup of tests 
/he«o All memo«y except rz once 


/yt^Si MOVE TEST PROGRAM TO THIS FIELD 

/test Constant 

/initialize constants 

/XCT test program in resident field 
/L*c* auto index indexed to r0 Failed 
/dac» Auto index indexed to fo failed 

LAC|DAC,5AD And jms indexed in resident field 

/cal FRo« here indicates JMS*XR failed 

/DOES This field exist? 

/NOi GO to next CROUP OF TESTS 


/vEs, Move test program to this field 
/test Constant 

/INITIALI2E constants 

/XCT TEST program In RESIDENT FIELD 
/LAC indexed in RESIDENT FULO FaILEO 
/0*C indexed in RESIDENT FIELD FAILED 
/SAO indexed in RESIDENT FIELD FAILED 

DAc and Tad Indexed to f^ 


/DOES This field exist? 

/no, go to next croup of tests 


/vESf MOVE test program TO THIS FIELD 
/TEST Constant 

/initialize constants 

/XCT TEST PROCRA^^ IN RESIDENT FIELD 

/oAc indexed to re failed 
/tad indexed to F2 Failed 




39 

IN0X15 

INDX15 





/test 

13.31 

test F3 for 

F2743 

104000 

T13,31 

JMS 

repeat 

?2744 

002762 


T13,32 

02745 

404171 


XCT 

TEF3 

02746 

603435 


JMP 

TSTOP 

02747 

104364 


JMS 

zermem 

02750 

204161 


LAC 

F3A 

02751 

344201 


TAD 

BLOCK 

02752 

103502 


jMS 

MOVEl 

22753 

760301 


law 

301 

02754 

344203 


TAD 

BLKCON 

02753 

103665 


JMS 

mINIT 

02756 

117000 


JMS 

TSTLOC.X 

02757 

605410 

ER255 

JMP 

H255 

02760 

605412 

ER260 

JMP 

H260 

02761 

104023 


JMS 

DONE 



/TEST 

13.32 

- test F3 for 

02762 

104000 

T13,32 

JMS 

repeat 

02763 

003001 


713, 

33 

02764 

404171 


XCT 

TEF3 

02765 

603435 


JMP 

TSTOP 

02766 

204161 


LAC 

F3A 

02767 

344201 


TAD 

BLOCK 

02770 

103514 


JMS 

M0VE2 

02771 

760302 


law 

302 

02772 

344203 


TAD 

BLKCON 

02773 

103665 


JMS 

MINIT 

02774 

117000 


jMS 

TSTL0C,X 

02775 

605414 

ER261 

JMR 

H261 

02776 

605416 

ER262 

JMP 

W262 

02777 

605420 

ER263 

JMP 

W263 

03000 

104023 


JMS 

done 



/TEST 

13,33 

- test F3 for 

03001 

104000 

T13,33 

JMS 

repeat 

03002 

003017 


T13, 

41 

03003 

404171 


XCT 

TEF3 

03004 

603435 


JMP 

TSTOP 

03005 

204161 


LAC 

F3A 

23006 

344201 


TAD 

BLOCK 

03007 

103526 


JMS 

M0VE3 

03012 

760303 


law 

303 

03011 

344203 


TAD 

BLKCON 

03012 

103665 


JMS 

M I M T 

23013 

117000 


JMS 

TSTLOCiX 

03014 

605422 

ER264 

JMP 

W264 

03015 

605424 

ER265 

JMP 

h265 

23016 

104023 


JMS 

DONE 




.EJECT 


LAC*OAC« AUTO INDEX INDEXED TO F0 


/DOES This riEio exist? 

/NO, GO TO NEXT CROUP OF TESTS 

/zero All memory except fo once 


/YESi move test program to TWIS field 
/test constant 

/INITUliHE constants 

/XCT test program in RESIDENT FiElO 

/lac* Auto index indexed to f0 failed 
/ oAc# auto index indexed to f0 Failed 

laciDac,sad And ums indexed in resident field 

/cal from here indicates JMS*XR failed 

/DOES This field exist? 

/NO, GO TO NEXT GROUP OF TESTS 


/yes, Move test program to twis field 
/test Constant 

/initialize constants 

/XCT test program in resident field 
/LAC indexed in resident field failed 
/dac indexed in resident field Failed 
/SAD indexed in resident field Failed 

DAC AND Tad Indexed to F0 


/DOES This FIELD EXIST? 

/NO, CO TO NEXT GROUR OF TESTS 


/yESi Move test program to twis field 
/test Constant 

/initialize constants 

/XcT test program in resident rirL: 
/QAC indexed to F0 failed 
/tad indexed to re failed 
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/TEST 

13,41 

i. Test fa 

for 

?3?17 

1040C0 

T13,41 

JMS 

repeat 


?3020 

003036 


T13, 

42 


03021 

404172 


XCT 

TEF4 


03022 

603435 


jMP 

TSTQP 


03023 

104364 


jMS 

HERMEM 


03024 

204162 


LAC 

F4A 


^3025 

344201 


TAD 

BLOCK 


03026 

103502 


JMS 

movei 


03027 

760401 


law 

401 


03030 

344203 


TAO 

BLKCqN 


03031 

103665 


JMS 

MlNlT 


03032 

117000 


JMS 

tstloc 

|X 

03033 

605426 

ER270 

JHP 

h270 


03034 

605430 

ER271 

JMP 

h271 


03039 

104023 


JMS 

DONE 




/TEST 

13,42 

- test F4 

for 

03036 

104000 

T13,42 

JMS 

repeat 


03037 

003055 


Tl3, 

43 


03040 

404172 


XCT 

TEF4 


03041 

603435 


JMP 

TSTOP 


03042 

204162 


lac 

F4A 


03043 

344201 


TAO 

BLOCK 


03044 

103514 


JMS 

MOVE2 


03049 

760402 


law 

402 


03046 

344203 


TAD 

BLKCON 


33047 

103665 


JMS 

M I N I T 


03050 

117000 


JMS 

tstlcc 

»X 

03091 

605432 

ER272 

JMP 

H272 


03052 

609434 

ER273 

JMP 

h273 


33053 

609436 

ER274 

jMP 

H274 


03094 

104023 


jMS 

CONE 




/TEST 

13,43 

« test F4 

FOR 

03095 

104000 

/ 

T 1 3 , 4 3 

JMS 

repeat 


03056 

003073 


T13, 

51 


03057 

404172 


XCT 

TEF4 


33060 

603435 


JMP 

tstop 


03061 

204162 


LAC 

F4A 


03062 

344201 


TAD 

BLOCK 


03063 

103926 


jMS 

M0VE3 


03064 

760403 


law 

403 


03065 

344203 


TAD 

blkcon 


03066 

103665 


JMS 

M I M T 


03067 

117000 


jMS 

TSTLCC 

|X 

0307^ 

60544? 

LR275 

JWP 

m275 


03071 

605442 

ER330 

J^P 

h30I^ 


03072 

104023 


J^s 

DONE 





.eject 



LAC*OAC« AUTO tNDEX INDEXED TO fg 


/DOES This field exist? 

/NO, CO TO NEXT GROUP OF TESTS 

/hero All memory except re once 


/yCs, Move test program to this field 
/test constant 

/initialize constants 

/XCT TEST program In RESIDENT FiELO 

/L^c* AutO index indexed to F0 failed 
/QAC* AutO index indexed to F0 failed 

laciOac,sad And jms Indexed in resident field 

/CAL from were indicates JMS*XR failed 

/DOES This field exist? 

/nO, go to next croup of tests 


/yes, Move test program to this field 
/test Constant 

/INITIAliII constants 

/XcT test program In resident field 
/L^ c indexed in resident field failed 
/DAC indexed in resident field failed 
/SAO indexed in resident field failed 

dac and Tad Indexed to re 


/DOES This field exist? 

/nO, go to next GROUP OF TESTS 


/yEs, Move test program to this field 
/test Constant 

/initialize constants 

/XCT TEST program In RESIDENT FIELD 

/QAC indexed to F0 failed 
/tAO INoFXED to F0 failed 
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/TEST 

13.51 ^ 

test F5 fop 

:^3P73 

03074 

104007 

003112 

/ 

Tli,51 

JMS 

T13,52 

repeat 

D3075 

404173 


XCT 

TEF5 

03076 

603435 


JMP 

TSTOP 

03077 

104364 


JMS 

ZERMEM 

03100 

204163 


LAC 

F5A 

03101 

344201 


TAO 

BLOCK 

03102 

103502 


JMS 

MOVEI 

03103 

760501 


law 

301 

03104 

344203 


TAO 

BLKCoN 

03105 

103665 


JMS 

MlNiT 

03106 

11703? 


JMS 

TSTLOC.X 

03107 

605444 

ER301 

JHP 

h301 

03110 

605446 

£R302 

JMP 

H302 

03111 

104023 

/TEST 

JMS 

13,52 - 

done 

TEST F5 for 

03112 

03113 

104000 

003131 

/ 

?13,52 

JMS 

T13,53 

repeat 

03114 

404173 


XCT 

TEF5 

03115 

603435 


JHP 

TSTOP 

03116 

204163 


LAC 

F5A 

03117 

344201 


TAO 

SLOCK 

03120 

103514 


JMS 

M0VE2 

03121 

760502 


law 

502 

03122 

344203 


TAD 

BLXCON 

33123 

103665 


JMS 

MINIT 

03124 

117000 


JMS 

TSTLOCiX 

03125 

60545? 

ER303 

JMP 

H30-5 

03126 

605452 

ER304 

JMP 

H30A 

03127 

605454 

ER305 

JMP 

H305 

03130 

104023 

/TEST 

JMS 

13,53 - 

DONE 

TEST FS Fo 

03131 

03132 

104000 

003147 

T13,53 

JMS 

T13,61 

repeat 

03133 

404173 


XCT 

TEF5 

03134 

603435 


JMP 

TSTOP 

03135 

204163 


LAC 

F5a 

03136 

344201 


tad 

BLOCK 

03137 

103526 


jms 

moves 

03140 

760503 


law 

503 

03141 

344203 


TAO 

BLKCoN 

03142 

103665 


jMS 

M I N I T 

03143 

11700? 


JMS 

TSTLCC,X 

03144 

605456 

ER31P 

jMP 

h310 

03145 

60546? 

ER311 

JMP 

M311 

03146 

104023 


IMS 

.EJECT 

DONE 


lAC^OAC# AUTO index INDEXED TO 


/DOES TmiS riELO EXIST? 

/nO, go to next group of TESTS 
/ 2 ER 0 All memory except rz once 


/YES» MqvE TEST PROGRAM TO THIS FIELD 
/TEST constant 

/initialize constants 

/XCT TEST program in RESIDENT FiElO 
/LAC* AutO index INDEXED TO F0 FAILED 
/DXC* AutO index indexed TO F0 FAILED 

lac,oac,sad And jms indexed in resident field 

/cal from here indicates JMS*XR failed 

/qoes This field exist? 

/nO, go to next group of tests 


/yES, move test program to this field 
/test Constant 

/initialize constants 

/XcT TEST program IN RESIDENT FIELD 
/LAC indexed in resident field failed 
/DAC indexed in RESIDENT FIELD FAILED 
/SAD indexed in RESIDENT FIELD FAILED 

OAC AND tad Indexed to fz 


/DOES This field exist? 

/NO, GO TO NEXT GROUP OF TESTS 


/yEs, Move test program to this field 
/test constant 

/initialize constants 

/Xct test program in resident Field 
/dac indexed to f 0 Failed 
/tAO indexed to F 0 failed 
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/TEST 13,61 .. test F6 FOR LAC*OAC« AUTO INOCX INDEXED TO FO 


/ 


?3147 

104002 

T13,61 

JMS 

repeat 


?315? 

203166 


T13,62 



23151 

404174 


XCT 

TEf6 

/DOES This field exist? 

23152 

603435 


JHP 

TSTOP 

/NO, GO TO NEXT GROUP OF TESTS 

23153 

104364 


JMS 

HERMEM 

/ZERO All memory except F0 once 

23154 

204164 


LAC 

F6A 


23155 

344201 


TAD 

BLOCK 


23156 

103502 


JMS 

MOVll 

/yes, MOVE TEST PROGRAM TO THIS FIELD 

23157 

760601 


LAW 

601 

/TEST Constant 

23160 

344203 


tao 

BLKCoN 


23161 

103665 


JMS 

MlNlT 

/initialize CONSTANTS 

23162 

117000 


JMS 

TSTLOCiX 

/XCT TEST program IN RESIDENT FIELD 

03163 

605462 

ER312 

JMP 

H3i2 

/lac# AUTO index indexed to f0 Failed 

23164 

605464 

ER313 

JMP 

H3i3 

/dac* AUTO INDEX indexed TO F0 FAILED 

23165 

104023 


JMS 

DONE 




/TEST 

13.62 . 

TEST F FOR LAC,OAC#SAO ANo jMS INDEXED IN RESIDENT FIELD 

23166 

104000 

n3,62 

JMS 

REPEAT 

/CAL from here INDICATES JMS*XR FAILED 

23167 

003205 


T13,63 



23173 

404174 


XCT 

TEF6 

/DOES This field exist? 

23171 

603435 


JMP 

TSTOP 

/NO, GO TO NEXT CROUR OF TESTS 

23172 

204164 


LAC 

F6A 


33173 

344201 


TAD 

BLOCK 


23174 

103514 


JMS 

M0VE2 

/YES, move TEST PROGRAM TO THIS FIELD 

23175 

760602 


law 

602 

/TEST Constant 

23176 

344203 


TAO 

BLXCON 


03177 

103665 


JMS 

MINIT 

/initialize constants 

23200 

117000 


JMS 

TSTLOCiX 

/XCT test program in resident field 

23201 

605466 

ER314 

JMP 

H314 

/lac indexed in resident field Failed 

23202 

605470 

ER315 

JMP 

H3i5 

/dac indexed in resident field Failed 

03203 

605472 

ER320 

JMP 

M32i0 

/SAD indexed in resident field Failed 

23204 

104023 


JMS 

DONE 




/TEST 

13,63 - 

test F6 For dac 

AND tao indexed to F0 

23205 

104000 

T13,63 

JMS 

repeat 


23206 

003223 


T15,71 



03207 

404174 


XCT 

tefs 

/DOES This field exist? 

23210 

603435 


JMP 

TSTOP 

/NO, go to next CROUP OF TESTS 

03211 

204164 


LAC 

F6A 


23212 

344201 


TAD 

BLOCK 


23213 

103526 


JMS 

moves 

/YES, Move test program to this field 

23214 

760603 


law 

603 

/test Constant 

23215 

344203 


TAO 

BLKCoN 


23216 

103665 


JMS 

MINIT 

/initialize constants 

23217 

117000 


JMS 

TSTLOC.X 

/XCT TEST program In RESIDENT riELO 

23222 

605<74 

ER321 

JMP 

M321 

/DAC indexed to fe failed 

23221 

605476 

ER322 

JMP 

m322 

/tad indexed to r0 failed 

23222 

104023 


JMS 

.EJECT 

done 





PACE 43 IN0X15 1^0X15 




/TEST 

13,71 

« TEST F7 FOR 

03223 

1040^0 

T13,71 

JMS 

repeat 

03224 

'^03242 


713, 

72 

03225 

404175 


XCT 

TEF7 

03226 

603435 


JMP 

TSTOP 

03227 

104364 


JMS 

zermem 

03230 

204165 


LAC 

F7A 

03231 

344201 


TAD 

BLOCK 

03232 

103502 


JMS 

movei 

03233 

760701 


LAW 

701 

03234 

344203 


TAD 

BLKCoN 

03235 

103665 


JMS 

MINIT 

03236 

117000 


JMS 

TSTLOC,X 

03237 

605500 

ER523 

JMP 

H323 

03240 

605502 

ER324 

JMP 

H32A 

03241 

104023 


JMS 

DONE 


/TEST 13,72 » test P? POP 


/ 


03242 

104000 

T1S,72 

JMS 

repeat 

03243 

003261 


713,73 


03244 

404175 


XCT 

TEF7 

03245 

603435 


JMP 

TSTOP 

03246 

204165 


LAC 

F7A 

03247 

344201 


TAD 

BLOCK 

03250 

103514 


JMS 

MOVI 2 

03251 

760702 


law 

702 

03252 

344203 


TAD 

BLKCON 

03253 

103665 


JMS 

MINIT 

03254 

117000 


JMS 

TSTLOCiX 

03255 

605504 

ER323 

JMP 

H325 

03256 

605506 

ER330 

JMP 

H330 

03257 

605510 

ER331 

JMP 

H331 

03260 

104023 


JMS 

DONE 



/TEST 

l3 , 73 »• 

test F7 FOR 

03261 

104000 

T13,73 

JMS 

repeat 

03262 

003435 


TSTOP 


03263 

404175 


XCT 

TEF7 

03264 

603435 


jMP 

TSTOP 

03265 

204165 


LAC 

r7A 

03266 

344201 


TAD 

BLOCK 

03267 

103526 


JMS 

moves 

03270 

760703 


law 

703 

03271 

344203 


TAD 

BLKCoN 

03272 

103665 


JMS 

MlNlT 

03273 

117000 


JMS 

TSTLOC,X 

03274 

605512 

ER332 

JMP 

h332 

03275 

605514 

ER333 

JMP 

H333 

03276 

104023 


JMS 

DONE 

03277 

603435 


JMP 

TSTOP 


.EJECT 


LAC^DAC* AUTO INDEX INDEXED TO P0 


/DOES This field exist? 

/nO, CO TO NEXT GROUP OP TESTS 

/ecro All memory except p0 once 


/yEs, Move test program to this field 
/test constant 

/|NiTIAli2E constants 

/XCT test program in resident field 
/lac* auto index indexed to P0 failed 
/dac* Auto index indexed to re failed 

LACiDAC.SaD Ano jms indexed in resident field 

/cal from were indicates jms*xr failed 

/DOES This field exist? 

/nO, CO TO next group of tests 


/YES, move test program TO THIS FIELD 
/test Constant 

/initialize constants 

/XcT TEST program IN RESIDENT FIELD 
/lac indexed in resident field Failed 
/OAC indexed in resident field failed 
/9A0 indexed in resident field failed 

DAC AND tad indexed TO F0 


/does This field exist? 

/NO, 00 to next croup of tests 


/Yts# move test Program to this field 

/TEST Constant 

/initialize constants 

/XCT TEST program IN RESIDENT FIElO 

/QAC indexed to F0 failed 
/tad indexed to F0 failed 



PACE 44 IN0X15 IN‘DX15 


/TEST SUBROUTINES TO CHECK FOR IUUE;gau hcHORY ADDRESSING 
/TEST FIELDS TO SEE IF TEST lOCaTiOnj mOdiFied 


{^3300 

0000^0 

TESTF6 

0 


J’3301 

203300 


LAC 

1 »! 

03302 

043434 


OAC 

TRET 

33303 

204164 


lac 

F6A 

03304 

344201 


TAO 

BLOCK 

03305 

721000 


PAX 


03306 

760006 


law 

6 

03307 

344203 


TAO 

BLKCON 

03310 

044204 


OAC 

TEMKON 

03311 

217000 


LAC 

TSTLOCiX 

03312 

544204 


SAD 

tcmkon 

03313 

603320 


JMP 

.♦S 

M334 

03314 

605516 

ER334 

JMP 

03315 

000000 

TESTF5 

0 


03316 

203315 


LAC 

• ■t 

03317 

043434 


OAC 

TR|T 

03320 

204163 


LAC 

FSA 

03321 

344201 


TAO 

BLOCK 

03322 

721000 


PAX 


03323 

760005 


law 

5 

03324 

344203 


TAO 

BLKCON 

03325 

044204 


OAC 

TEMKON 

03326 

217000 


LAC 

TSTLOC#X 

03327 

544204 


SAD 

TEMKON 

03330 

603335 


JMP 

.♦5 

03331 

605520 

ER335 

JMP 

H335 

03332 

000000 

TCSTF4 

0 


03333 

203332 


LAC 

• •t 

03334 

043434 


DAC 

TRET 

03335 

204162 


LAC 

F4A 

03336 

344201 


TAO 

BLOCK 

03337 

721000 


PAX 


03340 

760004 


law 

4 

03341 

344203 


TAO 

BLKCON 

03342 

044204 


DAC 

TEMKON 

03343 

217000 


LAC 

TSTLOC#X 

03344 

544204 


SAD 

TEMKON 

03345 

603352 


JMP 

.*5 

03346 

605522 

ER340 

JMP 

H340 

03347 

000000 

TESTF3 

0 


03350 

203347 


LAC 


03351 

043434 


DAC 

TRET 

03352 

204161 


LAC 

F3A 

03353 

344201 


TAD 

BLOCK 

03354 

721000 


PAX 


03355 

760003 


law 

3 

03356 

344203 


TAO 

BLKCON 

03357 

044204 


DAC 

TEMKON 

03360 

21700C 


LAC 

TSTLCC, X 

03361 

544204 


SAD 

TEMKON 

03362 

603367 


JMP 

.‘5 

h341 

03363 

605524 

ER341 

JMP 

.EJECT 



/SAVE For return 
/place field address in xr 


/E«R0R test LOC in F6 modified 


/save For return 
/PLACE field address IN XR 


/ERRORi test LOC IN F5 MODIFIED 


/SAVE For return 

/PLACE field ADDRESS IN xR 


/error# test LOC IN F4 MODIFIED 


/SAVE For return 

/PLACE field address IN XR 


/ERROR# test LOC IN F3 MODIFIED 
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IN0X15 


IV0X15 


03364 

000000 

TESTF2 

0 


^3365 

203364 


LAC 

.-1 

tret 

03366 

043434 


DAC 

33367 

204160 


LAC 

F2A 

03370 

344231 


TAD 

BLOCK 

03371 

721000 


PAX 


03372 

760002 


LAW 

2 

03373 

344203 


TAD 

BLKCoN 

03374 

044204 


DAC 

TEMKON 

03375 

217000 


LAC 

TSTLOCiX 

03376 

544204 


SAD 

TEMKON 

03377 

603404 


JMP 

.*5 

03400 

605526 

ER342 

JMP 

h342 

03401 

000000 

TESTFl 

0 


03402 

203401 


LAC 

, «! 

tret 

03403 

043434 


DAC 

03404 

204157 


LAC 

FIA 

03405 

344201 


TAD 

BLOCK 

03406 

721000 


PAX 


03407 

760001 


law 

1 

03410 

344203 


tad 

BLKCON 

03411 

044204 


DAC 

tehkon 

03412 

217000 


LAC 

TSTLOCiX 

03413 

544204 


SAD 

TEMKON 

03414 

603421 


JMP 

.*9 

H343 

03415 

605530 

ER343 

JMP 

03416 

000000 

TESTF0 

0 


03417 

203416 


LAC 

• ■I 

03420 

043434 


DAC 

TRET 

03421 

204156 


LAC 

F0A 

03422 

344201 


TAD 

block 

03423 

721000 


PAX 


03424 

760000 


law 

0 

03425 

344203 


TAD 

BLKCON 

03426 

044204 


DAC 

TEMKON 

03427 

217000 


LAC 

TSTLOCiX 

03430 

544204 


SAD 

TEMKON 

03431 

741000 


SKP 


03432 

605532 

ER344 

jMp 

H344 

03433 

623434 


jMp# 

TRET 

03434 

000000 

TRET 

0 



.EJECT 


/s*vE re:tu«\ 

/PLACE nELD ADOPESS IN' XP 

/E«RORi test LOC in rz moOIEIEO 

/SAVE rop RETURN 

/PLACE field address IN XR 

/ERRORi test LOC IN FI MODIFIED 

/SAVE For return 

/PLACE field address IN XR 

/ERRORi test LOC IN F0 mqDIFIEO 



PAGE 


<6 IN0X15 I\DX15 
/ 

/print end message IE DESIRED AND RESTART 


/ 


03435 

2042P2 

TSTOP 

LAC 

blkno 

?3436 

545652 


SAD 

(3 

03437 

603462 


JMP 

TSTOl 

03440 

204201 


LAC 

BLOCK 

03441 

740031 


CMA! lAC 


03442 

344177 


TAO 

cblk 

03443 

741200 


SNA 


03444 

603462 


JMP 

TSTOl 

03445 

444202 


IS2 

blkno 

03446 

204203 


lAC 

BLKCoN 

03447 

345663 


TAD 

(10 

03450 

044203 


OAC 

BLKCON 

03451 

204201 


LAC 

block 

03452 

345656 


TAO 

(100000 

03453 

044201 


OAC 

BLOCK 

03454 

144211 


D2M 

count 

03455 

204200 


LAC 

CBLKX 

03456 

345664 


TAD 

( ■100000 

03457 

044200 


CAC 

CBLKX 

03460 

104104 


JMS 

SENS 

03461 

602157 


JMP 

Ti2i0 

03462 

750004 

TSTOl 

LAS 


03463 

505665 


AND 

(1000 

03464 

740200 


S2A 


03465 

603475 


JMP 

TS02 

03466 

750004 


LAS 


03467 

505641 


AND 

(100 

03470 

740200 


SZA 


03471 

600200 


JMP 

Tl.a 

03472 

104224 


JMS 

type 

03473 

005534 


meno 


03474 

600200 


jMP 

T1,0 

03475 

104224 

TS02 

JMS 

TYPE 

03476 

005534 


MEND 


03477 

104224 


JNS 

type 

03500 

005541 


mqvf 


03501 

600200 


JMP 

T1,0 




.EJECT 



/HAS the last Block been tested? 

/yes# Exit 

/nO, is core available roR next block 


/NO, EXIT 

/yes, Update blkno 


/update block constant 


/UPDATE block pc bits 


/adjust for core 
/already tested 
/set core switches 

/DO extended mem test for next block 

/mask For bit 8 quick verify 

/qv*i Print end message 
/QV i0 Check bit ii 


/BIT ll«i, restart without PRINTING, 


/print end and quick verify MESSAGE 
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IN0X15 


IN0X13 


/SUBROUTINE TO MOVE TEST PROGRAMS POR InoEXED OPERATION IN 
/EXTENDED memory TO OTMER PlELOS PROM PlElO Z 


/ 


03502 

000000 

MOVEl 

? 


03503 

721000 


PAX 


03504 

044205 


DAC 

FIELD 

03505 

345666 


TAD 

(ENOTluTSTPl 

03506 

722000 


PAL 


03507 

205667 


LAC 

(TSTPl*! 

03510 

103540 


JMS 

moves 

03511 

204205 


LAC 

FIELD 

03512 

721000 


PAX 

MOVE! 

03513 

623502 


JMP* 

03514 

000000 

H0VE2 

0 


03515 

721000 


PAX 


03516 

044205 


OAC 

FIELD 

03517 

345670 


TAD 

(EN0T2-TSTP2 

03520 

722000 


PAL 


03521 

205671 


LAC 

(TSTP2el 

03522 

103540 


JMS 

moves 

03523 

204205 


LAC 

FIELD 

03524 

721000 


PAX 


03525 

623514 


JMP* 

M0VE2 

03526 

000000 

MOVES 

0 


03527 

721000 


PAX 


03530 

044205 


dac 

field 

03531 

345672 


TAD 

(ENDT3-TSTP3 

03532 

722000 


pal 


03533 

205673 


LAC 

(TSTP3-1 

03534 

103540 


JMS 

moves 

03535 

204205 


LAC 

FIELD 

03536 

721000 


PAX 


03537 

623526 


JMP* 

moves 

03540 

000000 

MOVES 

0 


03541 

040010 


DAC 

10 

03542 

220010 


lac* 

10 

03543 

057000 


OAC 

TSTLOC, X 

03544 

725001 


AXS*1 


03545 

603542 


JMP 

, »3 

03546 

623540 


JMP* 

.EJECT 

moves 


/PLACE field bits In XR 
/SAVE In field also 

/aOD the number of words in test program 
/add TSTlOC and save in lR 


/restore Field bits in xr 


/get word 

/DEPOSIT in new field starting AY 122 ?^ 
/add 1 TO XR, Skip if transfer complete 
/get next WORD 
/transfer complete, exit 



PAGE *B IN0X15 1\DX15 

/relocatable test routines to verify indexed operations in 
/upper MEHORY EIELDS, TwCSE routines are moved to upper memory 


/A'.o program control is Tfl 
/ 

/TSTPI.EIRST TEST routine 
/TESTS FOR LAC AND OaC IvD 


/ 


03547 

003547 

TSTPl 

TSTPl 


•03550 

140010 


DHM 

10 

03551 

140017 


OZM 

17 

03552 

140100 


OZM 

100 

03553 

750030 


CLAIIAC 


03554 

740030 


lAC 


03555 

721000 


PAX 


03556 

230017 


LAC* 

17, X 

03557 

740001 


CMA 


03560 

070016 


DAC* 

16 1 X 

03561 

540050 


SAD 

50 

03562 

741000 


SKP 


33563 

607023 


JMP 

TSTL0C*23 

03564 

447000 


IS2 

TSTLOC 

03565 

230010 


lac* 

10|X 

03566 

540050 


SAO 

50 

03567 

741000 


SKP 


03570 

607023 


JMP 

TSTL0C*23 

03571 

447000 


iSi 

TSTLOC 

03572 

730000 


PLA 


03573 

740051 


CMAIIAC 


03574 

721000 


PAX 


03575 

637000 


JMP* 

TSTLOC, X 

03576 

000000 

ENDTl 

0 



.EJECT 


nsfered to TnEM. 

OR indexed Operation in ex.mem 
RECT AuTO index INDEXED, 


/clear loc IN resident field 


/PUT 2 IN XR 

/get contents of loc is in r0 

/SAVE Compliment in loc i4 in f0 
/WAS LOC IT in F0 addressed CORRCCTlY? 
/yEs, Continue testing 
/NO i exit 

/setup for GOOD EXIT 
/GET CONTENTS OF LOC 14 IN F0 
/DID OAC* AUTO INOCX INDEXED WORKt 
/yESi Continue 

/NOi exit 

/SETUP for good exit 

/PLACE COMP or PC BITS 1*2 IN XR 


/GOOD EXIT 



PAGE 


49 

INOXIS 

IN0X15 






/SECOND 

RCtOCATABLE TEST 

ROUTINE for indexed OPERATION IN EX*«MEH 



/TESTS 

FOR LAC» 

OACi SAD 

AND JMS indexed in resident FIELD 

03577 

003577 

/ 

TSTP2 

TSTP2 



03600 

750030 


CLA! lAC 


/PLACE 2 In xR 

03601 

740030 


lAC 



03602 

721000 


PAX 



03603 

140012 


DIM 

12 


03604 

140053 


OHM 

53 


03605 

140054 


OHM 

54 


03606 

140055 


OHM 

55 


03607 

210776 


LAC 

776iX 

/get contents of loc 1000 IN resident field 

03610 

050010 


OAC 

10|X 

/OAC IN lOC 12 IN RESIDENT FIELD 

03611 

541000 


sad 

1000 

/Qio lac*xr succeed? 

03612 

741000 


SKP 


/yES, Continue 

03613 

607032 


JMP 

TSTL0C*32 

/NO, ERROR EXIT 

03614 

447000 


ISI 

T8TLOC 

/SETUP for good exit 

03615 

200012 


LAC 

12 


03616 

541000 


SAD 

1000 

/DID OAC4XP SUCCEED? 

03617 

741000 


SKP 


/ycs. Continue 

03620 

607032 


JMP 

TSTL0C*32 

/NO, ERROR EXIT 

03621 

447000 


ISH 

TSTUOC 

/SETUP for GOOD EXIT 

03622 

550776 


SAD 

776iX 

/TRT to 8A04XR 

03623 

741000 


SKP 


/GOOD, continue 

03624 

62T000 


JMP« 

TSTLOC 

/0AO, Error EXIT 

03625 

447000 


tSH 

TSTUOC 

/setup for good exit 

03626 

110053 


JMS 

53|X 

/attempt a jms*xr 

03627 

000000 


CAL 


/IF CAL FROM MERE JMP« INDEXED 

03630 

000000 


CAL 


/IN resident field failed 

03631 

730000 


PLA 


/PLACE COMP OF PC BITS 1*2 IN XR 

03632 

740031 


CMAI lAC 



03633 

721000 


PAX 



03634 

637000 


jMP* 

TSTLOC, X 


03635 

000000 

ENDT2 

0 






.EJECT 





PASC 50 IN0X15 INDX15 

/third RELOCATASLt TEST ROUTINE ro« INOExEO OPERATION IN EX*mEM 
/TESTS FOR DAC AND TaO InOExCO TO 


/ 


03636 

003636 

TSTP3 

TSTP3 



03637 

724000 


PXA 


/GET FIelO bits, form TWOS COMPLIMENT 

03640 

740031 


CMAj I AC 



03641 

721000 


PAX 



03642 

201000 


lac 

1000 

/GET field test CONSTANT 

03643 

050100 


DAC 

100IX 

/deposit In lOC 100 IN F0 

03644 

210100 


LAC 

100IX 

/CET contents of LOC 100 IN F0 

03645 

541000 


SAD 

1000 

/test If OaC indexed to F0 worked 

03646 

741000 


SKP 


/yEs, Continue 

03647 

607022 


JMP 

TSTU0C*22 

/NO, exit 

03650 

447000 


ISZ 

TSTLOC 

/setup for good exit 

03651 

750000 


CLA 



03652 

140100 


DEM 

100 

/clear loC 100 IN RESIDENT FIELD 

03653 

350100 


TAD 

100IX 

/TAD LOC 100 from F0 

03654 

541000 


SAQ 

1000 

/OlD tad INOCXIO to F0 WORK 

03655 

741000 


SKP 



03656 

607022 


JMP 

TSTL0C*22 

/NO. exit 

03657 

447000 


ISZ 

TSTLOC 

/setup for GOOD EXIT 

03660 

730000 


PlA 


/PLACE COMP OF PC BITS 1*2 IN XR 

03661 

740031 


CMAIIAC 



03662 

721000 


PAX 



03663 

637000 


JMP« 

TSTLOC, X 

/Exit 

03664 

000000 

ENDT3 

0 




.EJECT 



PACE 51 

IN0X15 

!^DX15 






/subroutine to 

J 

INITIALIZE CONSTANTS ANO OPERATORS FOR EXbMEM TEST 

?3665 

•?00000 

f 

M I N I T 

0 



^3666 

05100? 


DAC 

1000, X 

/deposit TEST Constant in loc 1000 in resident field 

03667 

140014 


D2M 

14 


03670 

140100 


D2M 

100 


03671 

205674 


LAC 

(575634 


03672 

040013 


DAC 

13 


03673 

205675 


LAC 

(U 


03674 

040016 


DAC 

16 


03675 

040010 


DAC 

10 


03676 

205663 


LAC 

(10 


03677 

040017 


DAC 

17 


03700 

150776 


DZM 

776iX 


03701 

205641 


LAC 

(100 


03702 

050040 


DAC 

40, X 


03703 

205676 


LAC 

(202143 


03704 

050050 


DAC 

50|X 


03705 

205677 


LAC 

(lA 


03706 

050051 


DAC 

51|X 


03707 

205700 


lac 

(JMP* 55, X 


03710 

050056 


D/tC 

56, X 


03711 

724000 


PXA 


/PUT XR IN LR 

03712 

505701 


AND 

(300000 


03713 

722000 


PAL 


/only Block bits 1*2 

03714 

623665 


JMP« 

MINlT 




/RETeRENCE area por correct 

A 

indexing tests 



/USED 

FOR LACf 

xor,sad 


03715 

003715 

get 

GET 


/PUT PROGRAM COUNTER IN OWN LOCATION 

03716 

003716 


GET*1 



03717 

003717 


GET*2 





/USED 

FOR DAC» 

DZM, IS?, AND 


03720 

000000 

PUT 

0 


/IF DAC indexed PLACED QUANTITY HERE IT 

03721 

000000 


0 



03722 

000000 


0 



03723 

000000 


0 



03724 

000000 


0 





/USE 1 

FOR JMS 



03725 

000000 

SUBl 

0 



03726 

623725 


sjMP. 

SUBi 


03727 

000000 

SUBIX 

0 


/jMS here if indexed CORRECTLY 

03730 

443727 


ISZ 

SUBlX 


03731 

623727 


JHP« 

SUBlX 





.EJECT 
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I^J0yl5 


I\'DX15 






/USED 

FOR JHP 



03732 

601660 

SUB2 

JMP ER145 

/jMP 

HERE 

03733 

601661 


JMP ER145*1 

/jMp 

here 



/USE 1 

"OR XCT 



03734 

601676 

SUB3 

JMP ER147 



03735 

601677 


JMP £R147*1 





/USED 

FOR AODiTaD 



03736 

300037 

TOTE 

7 



03737 

000073 


70 



03740 

700702 


700 





/USED 

FOP CAL* 



03741 

300000 

SU84 

0 

/C4L 

here 

03742 

443741 


ISi SUB4 



03743 

623741 


JMP* SUB* 



03744 

000000 

SUB4)( 

0 

/C4L 

here 

03745 

623744 


JMP* SUB4X 





/USED 

FOR LAC*iOAC# 



03746 

303746 

IGET 

ICET 



03747 

000000 


0 





/USED 

FOR JMS*|JMP* 



03750 

003722 

JCET 

SUB1«3 



03751 

003752 

JSUB2 

JSUB2*1 



03752 

602015 


JMP ER163 



03753 

602016 


JMP ER16341 





/USED 

FOR SAD*iXCT* 



03754 

003715 

SGET 

GET 



03755 

003755 

SGETX 

SGETX 



03756 

003717 


GET*2 



03757 

203715 


lac get 





/USED 

FOR SAD* lliXCT* lliLAC* 

10|DAC* 10 

03763 

00376B 

DATA 

DATA 



03761 

003761 


0ATa*1 



03762 

303762 


0ATA*2 



03763 

300000 

STORE 

0 



03764 

300003 


0 



03765 

000000 


0 



03766 

000000 


0 



03767 

203762 


LAC DATA*2 





/USED 

for JMP4 12iJMS* 12 



03770 

003771 

JSUB3 

JSUB3*1 



03771 

602155 


JMP ER174 



03772 

602135 


JMP ER174 



03773 

602136 


JMP ER174*i 



03774 

000000 


0 



03775 

623774 


JMP* ,*1 



03776 

200000 


0 



03777 

602142 


JMP ER175*1 
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IF GOOD 


IF GOOD 
IF bad 
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/ 

/DIAGNOSTIC subroutines 

/repeat subroutine WILL INITIALISE LOOP COUNTER AND STORE THE 
/address of THE first INSTRUCTION OF THf PRESENT TEST IN REPEAT, 
/STORE address OF NEXT TeST IN NXTAQR 

/IN CASE OF A CAL and HAlT IN LOC 2l, REPEAT WILL CONTAIN THE 
/ADDRESS OF THE FIRST INSTRUCTION OF THE TEST THAT CAUSED THE CAu, 


/ 


04000 

000000 

REPEAT 0 




04001 

144206 

D2M 

FPRl 


/clear error printed flag 

04002 

204000 

lac 

repeat 


/SAVE test ADDRESS 

04003 

505702 

AND 

(77777 



04004 

345630 

TAD 

(•1 



04005 

044214 

DAC 

SAVIT 



04006 

205703 

LAC 

(JMP TyPCAL 


/initialize LOC, 21 FOR ILLEGAL CAL 

04007 

040021 

OAC 

21 



04010 

204211 

LAC 

count 


/WAS THIS entrance legal? 

04011 

740200 

SZA 




04012 

000000 

CAL 



/NO, bad Transfer of the program control 

04013 

224000 

lac* 

REPEAT 


/yes, Continue 

04014 

044207 

OAC 

nxtaor 


/cet and Save address of next test 

04015 

444000 

IS? 

repeat 



04016 

204217 

LAC 

ITIN 


/PICK UP LOOP intincration 

04017 

740001 

CMA 



/negate and store 

04020 

044211 

OAC 

count 



04021 

144212 

DIM 

LOOP 


/clear lock dn error flag 

04022 

624000 

JMP* 

repeat 





/DONE SUBROUTINE • TEST LOOP 

Flag, if set do not update 



/counter but loop continuously 

, iF Flag is clear update counter 



/AND test for completion, IF 

complete Continue on to next test, 



/TEST FOR halt 

y 

BIT AC0| IF A 

1 

halt at EnO of current TEST, 

04023 

000000 

/ 

done 0 




04024 

204023 

LAC 

,«1 


/form complement of done address 

04025 

505704 

AND 

(177777 



04026 

740031 

cmamac 



/TO trap Bad addressing. 

04027 

344207 

TAD 

nxtadr 


/IS nxtadr > present test address 

04030 

741100 

SPA 




04031 

000000 

CAL 



/NO, bad Transfer of the program control 

04032 

204212 

lac 

LOOP 



04033 

741200 

SNA 



/SKIP ir LOCK ON error Flag set 

04034 

444211 

IS? 

count 


/update counter 

04035 

624000 

JMP* 

repeat 


/CO through test again 

04036 

750004 

LAS 




04037 

751100 

SPA’CLA 



/IS bit r set? 

04040 

741000 

SKP 



/YES, Hlt with test ADR IN AC 

04041 

624023 

JMR# 

done 


/NO, EXIT 

04042 

204214 

LAC 

SAVIT 



04043 

74004? 

halt 




04044 

624023 

JMP* 

done 
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IN0X15 


IN0X15 


/ 

/SETUP subroutine ^ TEST AC SWITCHES FOR SUPPRESS ERROR TYPEDUT 
/AMO LOOP On error, If SyPPRESS ERRQR TypEOUT BIT SET, DO NOT 
/PRINT, IF proceed On error BIT IS NOT SET, SET LOOP FLAG 
/and loop test CONTInUOUSLT IF ANY ERROR ENCOUNTERED, 

/IF PROCEED ON ERROR IS SET, PRINT IF APPLICABLE AND CONTINUE ON TO NEXT 




/TEST, 





04045 

000000 

SETUP 

0 




04046 

044210 


OAC 

SAVAC 

/SAVE Ac AND LINK 


04047 

750000 


CLA 




04050 

740010 


RAL 




04051 

044213 


DAC 

link 



04052 

204206 


lac 

FPRl 

/has this ERROR BEEN PRiNTEOt 


04053 

740200 


SZA 




04054 

604061 


JMP 

CKO 

/yesi oon»t do it 


04055 

750004 


las 


/test For bit 9, SUPPRESS ERROR 

TYPEOUT 

04056 

505637 


AND 

<400 



24057 

741200 


SNA 




04060 

104460 


JMS 

print 



04061 

75000< 

CK0 

LAS 




04062 

741100 


SPA 


/I5 BIT 0 SETT 


04063 

741000 


SKP 


/ycs* Halt with test address in 

AC 

04064 

604067 


JHP 

.*3 

/NOi CONtiNUE 


04065 

204214 


LAC 

savit 



04066 

740040 


halt 


/YiSi Stop here 


04067 

750004 


LAS 


/test For bit 10| proceed on error 

04070 

505705 


and 

(20? 



04071 

741200 


SNA 


/l5 proceed on error flag sett 


04072 

604075 


JMP 

.♦3 



04073 

144211 


02M 

COUNT 

/CUEAR LOOP counter 


04074 

624207 


JMP« 

nxtadr 

/yEs, Continue on tq next test 


04075 

204212 


LAC 

LOOP 

/has loop flag been set yet? 


04076 

741200 


SNA 




04077 

444212 


isz 

LOOP 

/SET LOOP ON ERROR FLAG 


24100 

204213 


LAC 

LINK 

/restore AC ano link 


04101 

740020 


PAR 




04102 

204210 


lac 

SAVAC 



04103 

624000 


JMP# 

repeat 
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INDX15 

1NDX15 






/TEST 

roR Extra 

MEMORY 

By SENSING *C SWITCHES BITS 3-5 



/AND : 

setting LOC TEFl« 

TEr7 WITH A SKP ir non-existant 



/each 

j 

BUOCK OF 

mEMOMv 

IS DONE one at a TfME 

74104 

000000 

/ 

sens 

0 



04105 

205660 


LAC 

(NOF 

/INIT1ALI2E all flags 

04106 

044167 


OAC 

TEri 


04107 

044170 


OAC 

TEF2 


04110 

044171 


OAC 

TEFS 


04111 

044172 


OAC 

TEF4 


04112 

044173 


OAC 

TEF5 


04113 

044174 


OAC 

TEr6 


04114 

044175 


DAC 

TEF7 


04115 

205706 


LAC 

(SKP 


04116 

044166 


OAC 

TEr» 


04117 

204176 


lac 

CFLD 


04120 

344200 


TAD 

CBLKX 


04121 

741200 


SNA 



04122 

624104 


JMP# 

SENS 

/only 4k continue 

04123 

544157 


SAD 

riA 


04124 

604153 


JMP 

EM8K 

/8K 

04125 

544160 


SAD 

F2A 


04126 

604151 


JMP 

EM12k 

/12k 

04127 

544161 


SAD 

F3A 


04130 

604147 


jMP 

EM16k 

/1®K 

04131 

544162 


SAD 

F4A 


04132 

604145 


JMP 

EM20K 

/20K 

04133 

544163 


SAO 

F5A 


04134 

604143 


JMP 

£M24k 

/2AK 

04135 

544164 


SAD 

r6A 


04136 

604141 


jMP 

EM2BK 

/ 26 k 

04137 

205706 

EM32K 

LAC 

(SKP 

/32K or greater 

04140 

044175 


OAC 

TEF7 


04141 

205706 

EM28K 

LAC 

(SKP 


04142 

044174 


OAC 

TEFf 


04143 

205706 

EM24K 

LAC 

(SK^ 


04144 

044173 


DAC 

TEF5 


04145 

205706 

EM20K 

LAC 

(SKP 


04146 

044172 


OAC 

TEF4 


04147 

205706 

EMi6K 

LAC 

(SKP 


04150 

044171 


DAC 

TEF3 


04151 

205706 

EM12K 

LAC 

(SKP 


04152 

04’4170 


OAC 

TEFiJ 


04153 

205706 

£M8K 

LAC 

(SKP 


04154 

044167 


OAC 

TEFl 


04155 

624104 


JMP* 

P im mm 

SENS 
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/EXTENDED Indexed mekopv test parameters 


/ 



007000 

TSTLOC87800 

/TEST LOCATION IN MEMORY 

?4156 

000000 

r0A 

8 


04157 

010008 

riA 

10000 


04163 

020000 

r2A 

20000 


04161 

030000 

r3A 

30000 


04162 

840000 

F4A 

40000 


04163 

050000 

rsA 

50000 


04164 

060000 

r6A 

60000 


04165 

070000 

r7A 

70000 




/EXISTENT riELO 

A 

indicator STORAGE 

04166 

000000 

TEE0 

0 


04167 

000000 

TEFl 

0 


04170 

000000 

TEr2 

0 


04171 

000000 

TEF3 

0 


04172 

000000 

TEE4 

0 


04173 

000000 

tees 

0 


04174 

000000 

TEF6 

0 


04175 

000000 

TEP7 

0 


04176 

000000 

CFLO 

0 

/pc BITS 3.5 OF MAX CORE AVAILABLE 

04177 

000000 

CBIK 

0 

/PC BITS 1*2 OF MAX CORE AVAILABLE 

04200 

000000 

CBUX 

0 

/PC SITS FOR SENS 

04201 

000000 

BLOCK 

0 

/pc bits 1*2 OF block UNDER TEST 

04202 

000000 

BLKNO 

0 

/BI.OCK number FOR PRINTOUT 

04203 

000000 

RLKCON 

3 

/BLOCK constant FQR TESTING 

04204 

000000 

TEMKON 

3 

/temporary Test constant 

04205 

000000 

FIELD 

0 


04206 

000000 

FPRl 

0 

/E«ROR already printed FLAG 

04207 

000000 

NXTAOR 

0 

/address or NEXT TEST 

04210 

000000 

SAVAC 

0 

/STORE CONTENTS OF AC 

04211 

000000 

COUNT 

0 

/store number of times TO 00 test 

04212 

000000 

LOOP 

0 

/SCOPE LOOP FLAG. 1 ■ SCOPE LOOP 

04213 

000000 

LINK 

3 


04214 

000008 

SAVIT 

0 

/current test address 

04215 

000000 

BANKSW 

0 

/sank Mode switch test flag 

04216 

000000 

POINT! 

0 

/temp Pointer for indirect indexing 

04217 

807777 

ITIN 

7777 

/number oF times each test is done 

04220 

800000 

temq 

0 

/temporary storage message 

04221 

000000 

temp 

0 

/temporary storage 

04222 

800000 

FTVPE 

3 

/temporary storage message 

04223 

800000 

ftitle 

0 

/title flag. IIPRINTCD 
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/ 

/SIXBIT unpacking ROUTINE 

/XfCARRiAGE return, ««LInE TEEDi mESSAGE MUST 6E TERMINATED 
/BY ^7 enter WITR JMS type FOLLOWED BY START CF MESSAGE ADDRESS 


/ 


?4224 

300002 

TYPE 

3 



34225 

224224 


lac« 

type 

/get and store string aoress 

04226 

044220 


DAC 

TEMU 


04227 

144222 


OHM 

FTVPE 

/CLEAR TYPE FLAG 

34230 

444224 


IS2 

type 

/set for Good exit 

34231 

224220 

TSCl 

lac« 

temq 

/get data word 

04232 

742010 


rtl 



04233 

742010 


RTL 



34234 

742010 


rtl 



04235 

740010 


RAL 



04236 

104250 


JMS 

TSC2 

/type First character 

04237 

224220 


lac* 

TEMQ 


04240 

742020 


RTR 



04241 

742020 


RTR 



04242 

742020 


RTR 



04243 

104250 


JMS 

TSC2 

/TYPE Second character 

04244 

224220 


lac* 

TEMQ 


04249 

104250 


JMS 

TSC2 

/ttpe Third cmaractep 

04246 

444220 


IS2 

TEMQ 

/UPDATE data address 

04247 

604231 


JMP 

TSCi 


04250 

300003 

TSC2 

0 



04251 

505707 


AND 

(77 

/MASK Excess bits 

04252 

044221 


DAC 

TEMP 


04253 

204222 


lac 

ftype 

/is special character Flag set? 

04254 

740200 


SZA 



04255 

604265 


JMP 

TYPSP 

/yes 

04256 

204221 


LAC 

TEMP 

/NO, get character 

04257 

741200 


SNA 


/ll IT 0 ? 

04260 

604263 


jMp 

,*3 

/yiSt Special character 

04261 

104274 

TYPAT 

JMS 

ttout 

/NO, GO print character 

04262 

624250 


JMP# 

TSC2 

/|XIT Tsc2 

04263 

444222 


IS? 

ftype 

/set special character flag 

04264 

624250 


JVP* 

TSC2 

/EXIT TSC2 

34265 

144222 

TYPSP 

D2M 

FTYPE 

/CUEAP special character FLAG 

34266 

204221 


LAC 

TEMP 

/IS IT 0 7 

04267 

741200 


SNA 


34270 

624250 


JMP# 

TSC2 

/YES ignore it, EXIT TSC2 

04271 

545707 


SAD 

(77 

/is IT 77? 

34272 

624224 


JMP« 

TYPE 

/YES exit type subroutine 

34273 

604261 


JMP 

typat 

/nO 
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IN0X15 




04274 

000000 

ttout 

0 



04275 

545710 


SAO 

(45 

/IS IT 451 

04276 

604307 


JMP 

prints 

/yESi Type it 

04277 

545711 


SAO 

(43 

/IS IT 43» 

04300 

604311 


JMP 

PRINTC 

/yeSi Type it 

04301 

345712 


TAD 

(»40 

/NO 

04302 

741100 


SPA 



04303 

345641 


TAO 

(100 


04304 

345713 


TAD 

(240 


04305 

104575 

/ 

PRINTA 

JM8 

OTY 

/TYPE Character 

04306 

624274 


jMPt 

TTOUT 


04307 

760215 

PRINTB 

law 

219 


04310 

604305 


JMP 

PRINTA 

/ttpe Carriage return 

04311 

760212 

PRINTC 

law 

212 


04312 

604305 


JMP 

PRINTA 

/type uine feed 


/ 

/INITNilNiTiALIlE LOOP COUNTER FOR NORMAL ITINERATIONS 


04313 

000000 

/ 

INITN 

0 


04314 

144211 


DIM 

COUNT 

04315 

205714 


LAC 

(77/7 

04316 

044217 


OAC 

ITIN 

04317 

624313 


JMP# 

INITn 



/1NIT10 

•initialize LOOP COUNTER FOR 1 LOCPS 

04320 

000000 

INIT10 

0 


04321 

144211 


DIM 

count 

04322 

205645 


lac 

(1 

04323 

044217 


DAC 

ITIN 

04324 

624320 


JMP# 

INIT10 


/ 

/RANDOM number generator-exit WITH NUMBfR IN AC AND RANB 
/ 

04325 000000 random 0 


04326 

750000 


CLA 


04327 

344340 


TAO 

RANA 

04330 

344341 


TAP 

RAN9 

04331 

044340 


DAC 

RANA 

04332 

750000 


CLA 


04333 

740010 


RAL 


04334 

344340 


TAO 

RANA 

04335 

344341 


TAO 

RANB 

04336 

044341 


OAC 

RANB 

34337 

624325 


JMP» 

RANDOM 

34340 

731420 

RANA 

731420 


04341 

315610 

RANB 

015610 
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/ 




/2ER0 UNUSCO PORTIONS OF FIELD 0 

04342 

000000 

f 

jjERF? 0 




04343 

144211 

OZM 

count 


/initialize test ANQ loop counter 

04344 

144363 

OHM 

point 


/zero locations 0«177 

04345 

164363 

D2M« 

point 


/zero location 

04346 

444363 

IS2 

POINT 


/update pointer 

04347 

204363 

LAC 

point 


/get point 

04350 

545705 

SAD 

(200 


/HAS LOC. 177 BEEN ZEROED YETt 

04351 

741000 

SKP 



/yE$» Continue 

04352 

604345 

JMP 

iERF0*3 


/nO# loop 

04353 

205627 

LAC 

SI2C 


/ZERO PRCM TCP OF PROGRAM TO 7777 

04354 

044363 

OAC 

point 


/SAVE It 

04355 

444363 

iSi 

point 


/update pointer 

04356 

164363 

DHH* 

point 


/ZERO location 

04357 

204363 

lac 

point 


/get pointer 

04360 

545714 

SAO 

(7777 


/HAS LOC. 7777 BEEN ZEROED YETt 

04361 

624342 

JHP« 

2ERF0 


/YES, Exit 

04362 

604355 

jMP 

,■5 


/no» loop 

04363 

000000 

POINT 0 



/pointer for clearing operation 



/ 

/HERO ALL HEmOR> 

' EXCEPT 

rei 

update repeat so that extended 



/MEMORY IS only 

zeroed 

Once 

EACH extended MEmORY TEST AND THAT TEST 



/PROGRAM IS ONL> 

' moved 

OnCE 


04364 

000000 

2ERHEM 0 




04365 

444000 

ISH 

repeat 


/UPDATE repeat 

04366 

444000 

IS2 

REPEAT 



04367 

444000 

ISZ 

repeat 



04370 

205627 

LAC 

SIZE 



04371 

040015 

OAC 

15 



04372 

750004 

las 




04373 

505715 

and 

(3T0000 


/get field sits 

04374 

345714 

TAD 

{1171 



04375 

044363 

DAC 

point 


/FORM Last address 

04376 

160015 

D2M# 

15 


/EERO location 

04377 

200015 

LAC 

15 


/WAS it the last one? 

04400 

544363 

SAO 

point 



04401 

624364 

JMP« 

2ERMEM 


/yEs, Exit 

04402 

604376 

JMP 

. *4 


/nOi loop 
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/ 

/TC0PE;INITIAL12E core CnNSTANTS AND TEST SWITCHES EOR AVAILAILE CORE 
/ 


:?4403 

000000 

TCORE 

0 



34404 

144230 


D2M 

CSL^^ 


34405 

144177 


02M 

CQl^ 


34406 

144201 


02H 

BLOCK 


04407 

144202 


OiM 

BLKNO 


04410 

144203 


OZM 

blkcon 


04411 

144176 


OiM 

CELO 


04412 

750004 


LAS 



04413 

505716 


AND 

(70k900 

/Pp BITS 3.5 IN CFLO 

04414 

044176 


OAC 

CfLO 


04415 

750004 


las 



04416 

505701 


AND 

(300000 

/pc BITS 1*2 IN CBLK 

04417 

044177 


DAC 

cblk 


04420 

044200 


OAC 

CBL'^X 


04421 

624403 


JMP* 

TCORE 




/ 

/OCTAL 

i 

PRINT - 

NO ZERO 

SuPRESSION 

04422 

000000 

OCTP 

0 



04423 

344456 


oAe 

XOCTl 

/SAVE Quantity 

04424 

742030 


swha 


/SWAP Halves of ac 

04425 

344457 


OAC 

X0CT2 

/SAVE Swapped ac 

04426 

104436 


JMS 

0CTP3 

/print hi order three 

04427 

204456 


LAC 

XOCTl 

/get UNSWAPPEO quantity 

04430 

044457 


OAC 

X0CT2 

/save UNSWAPPEO AC 

04431 

104436 


JMS 

0CTP3 

/print lo order three 

04432 

760243 


law 

240 

/space 

04433 

104575 


JMS 

OTY 

/print it 

04434 

104575 


JMS 

OTV 


04435 

624422 


JMP* 

OCTP 

/EMT 

04436 

300003 

0CTP3 

0 



04437 

742023 


RTR 


/shift 6 Right 

04440 

742020 


RTR 



04441 

742020 


RTR 



04442 

104453 


JMS 

OCTSuB 

/print 1ST character 

04443 

740020 


RAR 


/shift 4 RIGHT 

04444 

742020 


RTR 



04445 

104450 


JMS 

OCTSuB 

/print 2n0 character 

04446 

104453 


JMS 

OCTSuB 

/PRINT 3R0 character 

04447 

624436 


JMP* 

0CTP3 


04450 

000000 

OCTSUB 

0 



04451 

505717 


ANO 

<7 


04452 

345723 


TAO 

(260 


04453 

104575 



OTY 


04454 

204457 


LAC 

X0CT2 


04455 

624450 


JMP* 

OCTSuB 


04456 

000000 

XOCTl 

3 



04457 

'»00003 

XOCT2 

? 
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IN0X15 


/ 

/PRI^JT EP«OR NUMBER# CONTENTS OF AC, LInKi XR» LR 


/ 


? 4 4 6 T 

000000 

PRINT 3 



?4461 

204206 

L4C 

FPRl 


04462 

741200 

SNA 


/WAS error printed O'^CEi flag set? 

04463 

444206 

ISH 

FPRl 

/nO, set It 

04464 

104603 

JMS 

CRUE 


04465 

760305 

law 

305 

/c 

04466 

104575 

jMS 

OTY 


04467 

760322 

law 

322 

/R 

04470 

104575 

JMS 

OTV 


04471 

224045 

lac* 

SETUP 

/get error number 

04472 

505635 

and 

(777 

/mask Out law 

04473 

104422 

JM5 

OCTP 

/print octal ECJIVALEnT oF AC 

04474 

760320 

law 

320 

/p 

04475 

104575 

JMS 

OTY 


04476 

760301 

law 

301 

/A 

04477 

104575 

jMS 

OTY 


04500 

760323 

law 

323 

/SiS 

04501 

104575 

JMS 

OTY 


04502 

104575 

JMS 

OTY 


04503 

760279 

law 

275 

/■ 

04904 

104575 

JMS 

OTY 

/GET LOOP COUNTER AND CALCULATE 

04505 

204211 

lac 

count 

04506 

740030 

lAC 


/number oF passes completed 

04507 

344217 

TAD 

ITJN 

/and print it, 

04510 

740030 

lAC 



04511 

104422 

J^S 

OCTP 


04512 

760301 

law 

301 

/A 

04513 

104575 

JMS 

OTV 


04514 

760303 

law 

303 

/c 

04515 

104575 

J«8 

OTY 


04516 

760275 

LAW 

275 

/■ 

04517 

104575 

jMS 

OTY 

/get COmtEntS op AC 

04520 

204210 

LAC 

SAVAC 

04521 

104422 

jMS 

OCTP 


04522 

760314 

law 

314 

/L 

04523 

104575 

JMS 

OTY 


04524 

760275 

LAW 

279 

/i 

04525 

104575 

JMS 

OTY 

/get contents CF link 

04526 

204213 

UAC 

LINK 

04527 

740200 

S2A 



04530 

604534 

JWP 

.44 


04531 

760260 

law 

260 

/PRINT 0 

04532 

104575 

J'^s 

OTY 


04533 

604536 

jMP 

,*3 

/PRINT 1 

04534 

760261 

law 

261 

04535 

104575 

JMS 

OTY 

/SPACE. SPACE 

04536 

760240 

law 

240 

0.4537 

104575 

JMS 

OTV 


0454-^ 

104575 

jMS 

OTV 



.EJECT 
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IV0X15 




?4541 

760330 


law 

330 

n 

?4542 

104575 


JMS 

OTY 


24543 

760322 


law 

322 

/p 

24544 

104575 



OTY 


04545 

760275 


law 

275 

/a 

04546 

104575 


JMS 

OTY 


04547 

724000 


PXA 


/OU CO^tEN'TS cf x« 

04550 

104422 


JMS 

OCTP 


04551 

760314 


law 

314 

/L 

04552 

104575 


JMS 

OTY 


04553 

760322 


law 

322 

/R 

04554 

104575 


jMS 

OTY 


04555 

760275 


law 

275 

/» 

04556 

104575 


JMS 

OTY 


04557 

730000 


pLA 


/ctT contents or lp 

04560 

104422 


JMS 

OCTP 


04561 

760302 


law 

302 

/B 

04562 

104575 


JMS 

OTY 


04563 

760314 


law 

314 

/I 

04564 

104575 


JMS 

OTY 


04565 

760313 


law 

313 

/K 

04566 

104575 


jMS 

OTY 


04567 

760275 


law 

275 

/* 

04570 

104575 


JMS 

OTY 


04571 

204202 


lac 

BLKNO 

/print core block 

04572 

345720 


TAD 

(260 


04573 

104575 


JMS 

OTY 


04574 

624460 


JMP* 

PRINT 




/OUTPUT 

CWARACTEP on teletype 


04575 

000000 

OTV 

3 



04576 

700406 


TLS 



04577 

700401 


TSP 



04600 

604577 


JMP 

1*1 


04601 

700402 


TCP 



04602 

624575 


JMP» 

OTY 


04603 

000000 

cslp 

0 


/PRINT carriage RETjRN 

04604 

760215 


law 

215 


04605 

104575 


JMS 

OTY 


04606 

760212 


law 

212 


04607 

104575 


J'^S 

OTY 


04610 

624603 


JMP# 

CRLP 



.ejECT 


INE PEED 
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/tvpe: when cal occu«s*TypE wmere c^leo rpOM and address Of present test 
/AND Contents Of ACt ir ko psintout oestsEo 


/halt V.ITH law 7/7 In AC 


/ 


04611 

744213 

TyPCAL DAC 

SAV AC 

04612 

750034 

las 


04613 

505637 

and 

( 400 

04614 

741233 

SNA 


04615 

604623 

JMP 

,♦6 

?4616 

763777 

law 

777 

04617 

740040 

halt 


04620 

204213 

LAC 

SAVAC 

D4621 

740043 

halt 


04622 

604621 

J^p 

1 •! 

CRLF 

04623 

104603 

JHS 

P4624 

760303 

law 

303 

34625 

104575 

JHS 

oty 

34626 

760301 

law 

301 

3462? 

104575 

JMS 

OTY 

3463? 

760314 

law 

314 

34631 

104575 

JHS 

oty 

34632 

760240 

law 

240 

74633 

104575 

JMS 

OTY 

34634 

760301 

law 

301 

04635 

104575 

JMS 

OTY 

3463^ 

760304 

law 

304 

34637 

104575 

J^^s 

OTY 

34640 

760322 

law 

322 

34641 

104575 

JMS 

oty 

74642 

760275 

law 

275 

34643 

104575 

JHS 

OTY 

•34644 

200020 

lac 

20 

34645 

740200 

S2A 


34646 

345630 

TAD 

( "1 

34647 

535732 

ANO 

(77777 

34650 

104422 

JHS 

octp 

34651 

760324 

law 

324 

34652 

104575 

jMS 

OTY 

04653 

760305 

law 

305 

34654 

104575 

JHS 

OTY 

34655 

760323 

law 

323 

34656 

104575 

jMS 

oty 

34657 

760324 

law 

324 

34663 

104575 

J^s 

OTY 

34661 

760243 

L A W 

240 

34662 

104575 

J^‘S 

OTV 

34663 

760331 

law 

301 

34664 

104575 

j^S 

oty 

^4665 

763334 

L A,. 

334 

3 4 6 6 6 

104575 

J^S 

.eject 

oty 


/SAVE AC 

/TE^ST Fco bit s, supress error TYPROuT 

/IS 9IT 9 Sirl 

/NOi continue ^•ITH PBINTOUT 
/yESi Halt with law 777 in ac 

/display contents op AC WHEN CONTINUE PRESSED 
/P«INT CR « LF 

/c 

/A 

/L 

/SHACE 

/A 

/D 

/R 

/« 

/PRINT CONTENTS OP LOC20{»1) 

/mask Non address bits 

/T 

/E 

/S 

/T 

/S^ACE 

/A 

/D 
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7466? 

74677 

74671 

74672 

74673 

74674 

74675 

04676 

04677 

04700 

04701 

04702 

04703 

04704 

04705 

04706 

04707 

04710 

04711 

04712 

04713 

04714 

04715 

04716 

04717 

04720 

04721 

04722 

04723 

04724 

04725 

04726 

04727 

04730 

04731 

04732 

04733 


INDX15 I\DX15 


760322 

L A W 

322 

104575 

JMS 

OTY 

760275 

;,Aw 

275 

104575 

JMS 

3TV 

204214 

LAC 

SAVI T 

104422 

jvs 

QCTH 

760301 

t.AW 

301 

104575 

jMS 

OTV 

760303 

law 

303 

104575 

JMS 

OTV 

760275 

law 

275 

104575 

JMS 

OTY 

204213 

lac 

SAVAC 

104422 

JMS 

OCTP 

760330 

law 

330 

104575 

JMS 

OTY 

760322 

law 

322 

104575 

JMS 

OTY 

760275 

law 

275 

104575 

JMS 

CTY 

724000 

PXA 


104422 

JMS 

OCTP 

760302 

law 

302 

104575 

JMS 

CTY 

760314 

law 

3i4 

104575 

JMS 

OTY 

760313 

law 

313 

104575 

jMS 

OTY 

760275 

law 

275 

104575 

jMS 

CTY 

204202 

lac 

blknc 

345720 

TAO 

(260 

104575 

JMS 

OTY 

740040 

HALT 


104342 

JMS 

2ERP0 

104364 

JMS 

2ERMEM 

624214 

JMP* 

SAVlT 


• EJECT 


/* 

/A 

/C 

/« 

/get contents of AC 
/pRiNT content of AC 
/X 

/p 

/• 

/B 

/I. 

/K 

/» 


/TRY TEST AGAIN WITh I N I T I AL 1 E A T I ON 


•0 
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/ 

/diagnostic DRPOR hAlT SCCTIONI 

/WHEN AN ERROR IS ENCOIN^ECED A jyMP TO THJS SECTION 

/will be executed and a ^alt will Occur with a law xx 
/IN THE AC the XX RErEPI^G 'fC the error 'UmBERi PRESSING 
/continue will retrieve ^hE contents op the aC at the TI^'E 
/OP ERRORi pressing CONTINUE AGAIN wILl CvCL^ THE 

/test that failed pekhanentlv, The program cannot be 
/continued except by restarting at LOC 200 OR AT SOME 
/other LOCATION that STARTS THE NEXT TCSTi 
/ 

/ERROR 1^11 ARE associated WITH TEST 1,0 9/15 MODE SWITCH 

04734 

104045 

Hi 

JMS 

setup 

04739 

760001 


law 

1 

04736 

104045 

H2 

JMS 

setup 

04737 

760002 


LAW 

2 

04740 

104045 

h3 

JMS 

SETUP 

04741 

760003 


law 

3 

04742 

104045 

H4 

JMS 

SETUP 

04743 

760004 


law 

4 

04744 

104045 

h5 

JMS 

SETUP 

04745 

760005 


LAW 

5 

04746 

104045 

H6 

JMS 

SETUP 

04747 

760006 


law 

6 

04750 

104045 

h7 

JMS 

SETUP 

04751 

760007 

law 7 

/ERRORS 13-34 ARE ASSOCIATED WITH TEST 2 DATA PATHS TRANSFERS 

04752 

104045 

H13 

JHS 

SETUP 

04753 

760013 


law 

13 

04754 

104045 

H14 

JMS 

SETUP 

04755 

760014 


LAW 

14 

04756 

104045 

Hlb 

JMS 

SETUP 

04757 

760015 


LAW 

15 

04760 

104045 

h2Z 

JMS 

SETUP 

04761 

76002- 


LAW 

20 

04762 

104045 

H21 

JMS 

SETUP 

04763 

760021 


law 

21 

04764 

104045 

H22 

JMS 

SETUP 

04765 

760022 


law 

22 

04766 

104045 

m23 

J'^s 

SETUP 

7 4 76r 

76-0023 


LAW 

23 

04770 - 

104045 

H24 

JMS 

SETUP 

0 4771 

760024 


law 

24 

04772 

104045 

h25 

J'^s 

SETUP 

04773 

760025 


LAW 

25 

^4774 

104045 

-3J 

JMS 

SETwc 

04775 

76003 ’ 


law 

30 

04776 

104045 

h31 

j’-S 

SETUP 

04777 

760031 


LAW 

31 

^5000 

104045 

h32 

j“S 

SETUP 

05001 

760032 


law 

32 

05002 

104045 

^33 

JMS 

SETUP 

05003 

760033 


law 

33 

05004 

104045 

rl34 

JMS 

SETUP 
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r5205 

760034 


U AUl 


34 





/E«RO«S 

35 * 

42 

ARE associated 

with test 3 clear 

IK'STRJCTICNS 

r'5?Z6 

104245 

/ 

h35 

J^S 


SETJt-' 



:5?07 

760035 


law 


35 



"5010 

104045 

M 4 3 

JHS 


SETUP 



05011 

760040 


LAW 


4 0 



35012 

104045 

h41 

J^s 


SETUP 



35013 

760041 


law 


41 



05014 

104045 

>^42 



SETUP 



35015 

760042 


law 


42 





/ERRO'^S 

g 

43 

52 

are associated 

WITH TEST 4 data 

path interaction 

35016 

104045 

/ 

h43 

JMS 


SETUP 



35017 

760043 


L*W 


43 



35020 

104045 

h44 

JMS 


SETUP 



35021 

760044 


law 


44 



35022 

104045 

w45 

JMS 


SETUP 



35023 

760045 


law 


45 



35024 

104045 

h53 

JMS 


SETUP 



35025 

760050 


law 


50 



35026 

104045 

w51 

JMS 


SETUP 



35027 

760051 


LAW 


51 



35030 

104045 

h52 

JMS 


SETUP 



35031 

760052 


law 


52 





/ERRORS 

53 • 

61 

are associated 

with test 5 clear 

INTERACTION 

'"5032 

104045 

m53 

JMS 


SETUP 



35033 

760053 


L A W 


53 



35034 

104045 

h54 

JMS 


SETUP 



35035 

760054 


law 


54 



35036 

104045 

m55 

JMS 


SETUP 



^5037 

760055 


law 


55 



350.40 

104045 

m56 

JMS 


SETUP 



35041 

760056 


law 


56 



35042 

104045 

w60 

JMS 


SETUP 



35043 

760063 


law 


60 



35044 

104045 

k61 

JHS 


SETUP 



35045 

760061 


law 


61 





/ERRORS 

i 

62-63 

ARE associated with bit Pickup test 

35046 

104045 

/ 

w62 

JMS 


SETUP 



35047 

760062 


law 


62 



35050 

104045 

H 6 3 

JHS 


SETUP 



35351 

760063 


LAW 


63 





/ERRORS 

62 - 

13. 

4 ARE ASSOCIATED 

with TEST 6 ADD 

TO AC and XR 

35352 

104045 

/ 

-166 

jMS 


SETUP 



•^5353 

760064 


law 


64 



'’5'’54 

104045 

►,65 

J'^S 


SETUP 



35055 

760065 


L A ,m 


65 



35356 

104045 

Hbt 

J’^s 


SETUP 



'’5357 

763066 


law 


66 



^505 ’ 

104045 

-67 

J"S 


SETUP 



3 5061 

760067 


L A W 


67 





67 

I ^DX15 

I \DX15 




104045 

h70 

jvs 

SETJo 

.■^5? 6 3 

760070 


law 

70 

.^5P64 

104045 

h71 

J^S 

SETUP 

/ ? 6 5 

760071 


L A w 

71 

?5f*66 

104045 

h72 

J^S 

SETUP 

J^5?67 

760072 


law 

72 

r5?7^ 

104045 

m73 

JMS 

SETUP 

05?71 

760073 


law 

73 

05072 

104045 

^7 4 

JMS 

SETUP 

?5?73 

760074 


law 

74 

05074 

104045 

h75 

JMS 

SETUP 

0507S 

760075 


law 

75 

05076 

104045 

m76 

JMS 

SETUP 

05077 

760076 


law 

76 

05100 

104045 

h77 

JMS 

SETUP 

05101 

760077 


law 

77 

05102 

104045 

Wl30 

JMS 

SETUP 

05103 

760100 


law 

100 

05104 

104045 

W101 

JMS 

SETUP 

05105 

760101 


LAW 

101 

05106 

104045 

M102 

JMS 

SETUP 

05107 

760102 


law 

102 

05110 

104045 

h103 

JMS 

SETUP 

05111 

760103 


law 

103 

05112 

104045 

Wl04 

JMS 

SETUP 

05113 

760104 


law 

104 



/ERRORS 

110 *• 

116 ARE 

05114 

104045 

/ 

H110 

JMS 

SETUP 

05115 

760110 


L A W 

110 

05116 

104045 

Hill 

JMS 

SETUP 

05117 

760111 


law 

111 

05120 

104045 

H112 

JMS 

SETUP 

05121 

760112 


LAW 

112 

05122 

104045 

h113 

JMS 

SETUP 

05123 

760113 


LAW 

113 

05124 

104045 

rH4 

JMS 

SETUP 

05125 

760114 


LAW 

114 

05126 

104045 

hU5 

JMS 

SETUP 

05127 

760115 


LAW 

115 

05130 

104045 

h116 

JMS 

SETUP 

05131 

760116 


law 

116 



/ERRORS 

117 - 

133 ARE 

05132 

104045 

m117 

J'"S 

SETUP 

05133 

760117 


law 

117 

05134 

104045 

-.120 

JMS 

SETUP 

^5135 

7 6 312.-’ 


LA>^ 

120 

05136 

104045 

h121 

jMS 

SETUP 

05137 

763121 


law 

121 

0 514 0 

104045 

h122 

JMS 

SETUP 

0 514 1 

763122 


law 

122 

05142 

104045 

Hi 24 

JMS 

SETUP 

05143 

7 6 .3 1 2 4 


law 

124 

05144 

104045 

h125 

JMS 

SETUP 
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05145 

760125 


law 

125 

05146 

104045 

'^126 

JMS 

SETUP 

05147 

760126 


law 

126 

05150 

104045 

-.'130 

JMS 

SETUP 

05151 

760130 


L A W 

132 

05152 

104045 

m131 

JMS 

SETUP 

05153 

760131 


law 

131 

05154 

104045 

h132 

JMS 

SETUP 

05155 

760132 


law 

132 

05156 

104045 

h133 

JN-S 

SETUP 

05157 

760133 


law 

133 


/ERRORS 134.155 ARC ASSOCUTED WITH TEST 9 DIRECT INDEXED ADDRESSING 


/ 


05160 

104045 

h134 

JMS 

SETUP 

05161 

760134 


law 

134 

05162 

104045 

h135 

JMS 

SETUP 

05163 

760135 


law 

135 

05164 

104045 

H136 

JMS 

SETUP 

05165 

760136 


LAW 

136 

05166 

104045 

H137 

JMS 

SETUP 

05167 

760137 


LAW 

137 

05170 

104045 

m140 

JMS 

SETUP 

05171 

760140 


LAW 

140 

05172 

104045 

HlAl 

JMS 

SETUP 

05173 

760141 


law 

141 

05174 

104045 

m142 

JMS 

SETUP 

05175 

760142 


law 

142 

05176 

104045 

Ml 43 

JMS 

SETUP 

05177 

760143 


law 

143 

05200 

104045 

h144 

JMS 

SETUP 

05201 

760144 


law 

144 

05202 

104045 

H145 

JMS 

SETUP 

05203 

760145 


law 

145 

05204 

104045 

H146 

JMS 

SETUP 

05205 

760146 


LAW 

146 

05206 

104045 

-1147 

JMS 

SETUP 

05207 

760147 


law 

147 

05210 

104045 

-llP0 

JMS 

SETUP 

05211 

760150 


LAW 

150 

05212 

104045 

Wl5l 

JMS 

SETUP 

05213 

760151 


law 

151 

05214 

104045 

W152 

JMS 

SETUP 

05215 

760152 


LAW 

152 

05216 

104045 

Wl53 

JMS 

SETUP 

05217 

760153 


law 

153 

05220 

104045 

m154 

JMS 

SETUP 

05221 

760154 


law 

154 

05222 

104045 

m155 

JMS 

SETUP 

05223 

760155 


law 

155 


/ERRORS 160-165 ARE ASSOCIATED j«lTH TEST 1?. INDIRECT INDEXED ADDRESSING 


?5224 104045 

05225 760160 

05226 104045 

05227 760161 


/ 

wl60 




JMS 

LAW 

jys 

law 


SETUP 

160 

SETUP 

161 


161 



PAG£ 


69 

I NDX15 

I\DX15 



35230 

104245 

-162 

JMS 

SETUP 

05231 

760162 


LAW 

162 

05232 

124245 

-163 

J^s 

SETUP 

05233 

760163 


L A W 

163 

05234 

104045 

►<164 

J"S 

SETUP 

05235 

760164 


LA'* 

164 

35236 

104045 

«165 

J«S 

SETUP 

05237 

760165 


LAW 

165 

05240 

104045 

h166 

u«s 

SETUP 

35241 

760166 

/ERRORS 

law 

170-175 

166 

ARE ASSOCIATED WITH T£St H. INDIRECT 


/I^OEXEO AUTO Incremented address 


/ 


05242 

104045 

h170 

JMS 

SETUP 

05243 

760170 


UAW 

170 

05244 

104045 

Wl7l 

JMS 

SETUP 

05245 

760171 


law 

171 

05246 

104045 

W172 

JMS 

SETUP 

05247 

760172 


law 

172 

05250 

104045 

ul73 

JMS 

SETUP 

05251 

760173 


law 

173 

05252 

104045 

wl74 

JMS 

SETUP 

05253 

760174 


law 

174 

05254 

104045 

m175 

JMS 

SETUP 

05255 

760175 


law 

175 

05256 

104045 

ui76 

JMS 

SETUP 

05257 

760176 


law 

176 


/errors 2Z-232 ARE ASSOCIATED WlTM TEST l2, REFERENCE INSTRUCTIONS 
/INDEXED TO 0TM£R riEUOS 


/ 


05260 

104045 

h230 

JMS 

SETUP 

05261 

76020^^ 


law 

200 

05262 

104045 

m23 1 

JMS 

SETUP 

05263 

760201 


LAW 

201 

05264 

104045 

_ H2e2 

JMS 

SETUP 

05265 

760202 


LAW 

202 

05266 

104045 

h2c3 

JMS 

SETUP 

05267 

760203 


law 

203 

0527? 

104045 

h234 

JMS 

SETUP 

05271 

760204 


LAW 

204 

05272 

104045 


JMS 

SETUP 

05273 

760205 


LAW 

205 

05274 

104045 

-'236 

JMS 

SETUP 

05275 

760206 


law 

206 

05276 

104045 

H?.- 7 

JMS 

SETUP 

05277 

76?2r7 


LA'W 

207 

?53Z^ 

104045 

^211 

JMS 

SETUP 

05301 

7602lt 


L A W 

210 

"5302 

104045 

-211 

jMS 

SETUP 

05303 

76?2U 


L A w 

211 

05304 

104045 

•212 


SETUP 

05305 

760212 


L ^ 

212 

05306 

104045 

-213 

J^S 

SETUP 
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